#!/usr/bin/perl
use strict;
my $lovefilm = WWW::Lovefilm::API->new({
do('vars.inc'),
content_filter => sub { XMLin(@_) },
});
$lovefilm->REST->Users;
$lovefilm->Get;
if ($lovefilm->content) {
printf "%s %s\n", @{ $lovefilm->content }{qw/ first_name last_name /};
}
else {
print "no content\n";
}