Select Code to Download

#!/usr/bin/perl -l

...
    print "Failed: ", $res->status_line;
    print $res->decoded_content;
}