use IO::Socket::INET;

use strict;
use warnings;

my $s = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"www.google.ca", PeerPort=>80);
my $url =  "GET /search?hl=en&q=langley+public+library&meta= HTTP/1.1\r\nHost: www.google.ca\r\n\r\n";
print $s $url;
while (my $l = <$s>) {
	print $l;
	last if ($l =~ /<\/html>/);
}

##</code><code>##

use LWP::UserAgent;

use strict;
use warnings;

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