#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $response = $ua->get( 'http://en.wikipedia.org/wiki/Image:Mash-season1-dvd-cover.jpg' );

my $obj = $response->headers;

for my $head ( $obj->header_field_names ){
    print "$head: ", $obj->header( $head ),"\n";
}