Select Code to Download

#!/usr/bin/perl 
use LWP::UserAgent;
...
# HTML body:
my $body =  $response->content;
print "================\n$body====================\n";

Return Code ====>
 401
...
</TD></TR></TABLE></BODY></HTML>

====================