my $mech = WWW::Mechanize->new();
my $cookie_jar = HTTP::Cookies->new(
    autosave => 1,
    file => "C:\Temp\.cookie.dat");

$mech->cookie_jar($cookie_jar);
$mech->agent_alias( 'Windows IE 6' );
$mech->quiet(1);