Help for this page

Select Code to Download

Select or download this

use IO::Socket::INET;

...
    print $l;
    last if ($l =~ /<\/html>/);
}

Select or download this

use LWP::UserAgent;

...
$ua->agent("");
my $url =  "http://www.google.ca/search?hl=en&q=langley+public+library
+&meta=";
print $ua->get($url)->content();