require WWW::Mechanize;

my $mech = WWW::Mechanize->new( agent => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)', timeout => 60, stack_depth => 1, autocheck => 0);
$mech->add_header( Accept => 'text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5');
$mech->add_header( "Accept-Language" => 'en-us;q=0.8,en;q=0.5,de-de;q=0.3');
$mech->add_header( "Accept-Charset" => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7');
$mech->add_header( Connection => 'keep-alive');
$mech->add_header( "Keep-Alive" => 10);

$mech->add_header( TE => undef);