use LWP::UserAgent;
use HTTP::Request;
use Data::Dumper;

my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new(GET => 'http://rolfrost.de');
my $response = $ua->request($request);

print Dumper $response->header('Content-Type');