Select Code to Download

#!/usr/bin/perl
use LWP::UserAgent;

...
} else {
        print "Error: " . $res->status_line . "\n";
}