Select Code to Download

# Create a user agent object
use LWP::UserAgent;
...
else {
    print $res->status_line, "\n";
}