use strict;
use warnings;
use Data::Dumper;
my $myquery="Robert Palmer";
use WebService::GData::YouTube;
use WebService::GData::Error;
my $yt = new WebService::GData::YouTube();
$yt->query()->q("$myquery")->limit(10,2);
$yt->query($myquery)->maxresults(20);
my $videos = $yt->search_video();
print Dumper($videos);