Scrap YouTube's first page results

scrap_yt.pl

#!/usr/bin/env perl
use strict;
use warnings;
use LWP::UserAgent;
use Mojo::DOM;
my $date = localtime;
print "First page results for Google query on YouTube\nAuthor: Chankey Pathak (chankey\@cpan.org)\tDate: $date\n\n\n";
my $url = q{http://www.youtube.com/results?search_query=google};
my $ua = LWP::UserAgent->new( agent => 'Mozilla/5.0 (Windows NT 5.1; rv:10.0.1) Gecko/20100101 Firefox/10.0.1');
my $get = $ua->get($url)->content;
my $dom = Mojo::DOM->new($get);
print $dom->find('a.yt-uix-tile-link')->text();