WWW::Mechanize 사용 헤더보기

my $mech = WWW::Mechanize->new( autocheck => 1 );
   $mech->get( 'http://my.site.com' );
   my $res = $mech->response();
   for my $key ( $response->header_field_names() ) {
       print $key, " : ", $response->header( $key ), "\n";
   }