#!/usr/bin/perl use WWW::Mechanize; my $nameis = "madtoperl"; my $earch = "Perl poems"; $earch =~ s/ /+/g; my $wastedtime = WWW::Mechanize->new(); $wastedtime->get('http://www.google.com/search?hl=en&q=' . $earch .'&meta='); my @poems_to_steal = $wastedtime->find_all_links();