Select Code to Download

 use strict;
 use warnings;
...
 my $resp = $ua->request($req);
 my $message = $resp->content;
 print "printing message: $message\n\n";

 use strict;
 use warnings;
 use LWP::UserAgent;
...
 my $resp = $ua->request($req);
 my $message = $resp->content;
 print "printing message: $message\n\n";