my $ua = LWP::UserAgent->new();
my $response = $ua->head($url); #HTTP::Response type return
my $headers  = $response->headers(); # HTTP::Headers type return
my $content_type = $headers->content_type(); # string