use WWW::Mechanize;

  my $mech = WWW::Mechanize->new( quiet => 1 );
  $mech->get( "http://www.mysite.com/index.html" );
  die( "Error getting page" ) if ( ! $mech->success() );
  print( $mech->response->headers_as_string );