Select Code to Download

#!/usr/bin/perl
use warnings;
...

}else
   {print "sucess\n"}

#!/usr/bin/perl
use warnings;
...
my $response = $ua->simple_request( $request );
my $contents = $response->content();
print "$contents\n";