Select Code to Download

 use LWP::UserAgent;
 use HTTP::Request::Common qw(GET);
...
 my $resp = $ua->request($req);
 my $message = $resp->content;
 print "printing message: $message\n\n";