Select Code to Download

#!/usr/bin/perl -w
use strict;
...
printf("response message is %s\n", $response->message);
printf("response content is %s\n", $response->content);
printf("response header time is %s\n", $response->header('date'));

response code is 200
response message is OK
response content is (tons of binary data)
response header time is Wed, 13 Mar 2013 03:36:18 GMT