Select Code to Download

use LWP::Debug qw(+);
use LWP::UserAgent;
...
    print "Error: " . $resp->status_line . "\n";
    print $resp->as_string;
}