Select Code to Download

    foreach my $video (@$videos) {
        say $video->video_id;
...
        say $video->favorite_count;
        say $video->duration;
    }

lib/WebService/GData/YouTube/Doc/GeneralOverview.pod

...

91:ok( @{ $entry->thumbnails } == 5, 'number of thumbnails is right.' 
+);
93:ok($entry->thumbnails->[0]->url eq 'http://i.ytimg.com/vi/qWAY3YvHq
+LE/default.jpg','thumbnail is properly set.');

           my $thumbs =$video->thumbnails;
           foreach my $thumb (@$thumbs) {
...
                say $thumb->width;
                say $thumb->height;
           }

#!/usr/bin/perl --
use strict;
use warnings;
...
#~         say $thumb->height;
    }
} ## end sub display_video