Select Code to Download

my ($req, $socket, $buf);

...

my $q = talk( HTTP::Request-> new( GET => 'http://www.perl.com') );
print $q->wait;