Select Code to Download

use strict;
use LWP::UserAgent;
...
  my $data = $resp->content;
  print "$data\n";
}

$ perl porttest.pl 
Creating New socket: www.google.ch, 80, 45
$