$ perl -le'
   use LWP::UserAgent;
   print join " ",
      LWP::UserAgent->new
         ->get("http://www.google.ca/")->content_type;
'
text/html charset=ISO-8859-1

$ perl -le'
   use LWP::UserAgent;
   print join " ",
      LWP::UserAgent->new
         ->get("http://www.microsoft.com/")->content_type;
'
text/html charset=utf-8