use strict; 
my $url         = "http://www.foo.bar/blort/quux.html";
my $req         = HTTP::Request->new(HEAD=>$url);
my $ua          = LWP::UserAgent->new;
my $resp        = $ua->request($req);
my $type        = $resp->header('Content-Type');
my $status_line = $resp->status_line;