Select Code to Download

#!/usr/bin/perl

...
my $contents = $response->decoded_content;
print "Returned headers are:\n";
print "$contents";

Headers before http request are:
Connection: keep-alive
...
Host: localhost
TE: deflate,gzip;q=0.3
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)