perl HTML::HeadParser获取html头部信息

 use LWP::Simple;
 use HTML::HeadParser;
 use utf8;
 binmode(STDOUT, ":encoding(gbk)"); #设置win下输出中文

 $result = get('http://www.baidu.com');
 $what = HTML::HeadParser->new;
 $what->parse($result);
 print $what->header('refresh'),"\n";
 print $what->header('title'),"\n";
 print $what->header('content_type'),"\n";