Select Code to Download

#!/usr/bin/perl
use strict;
...
    print "HTTP POST error code: ", $resp->code, "\n";
    print "HTTP POST error message: ", $resp->message, "\n";
}

192.168.1.108 - - [03/Apr/2016:19:22:43 +1000] "POST /api/1/upload/ HT
+TP/1.1" 301 424 "-" "libwww-perl/6.08"

192.168.1.54 - - [03/Apr/2016:19:32:44 +1000] "POST /api/1/upload/?key
+=xxxx&format=json&source=http%3A%2F%2Fphotos.mysite.com%2F128.jpg HTT
+P/1.1" 200 2570 "-" "Paw/2.3.3  GCDHTTPRequest"