use LWP::Simple qw/ head /;
my ($content_type) = head($url);