my $mech = WWW::Mechanize->new(autocheck => 1);

my $cookie_jar = HTTP::Cookies->new(
    file => "$my_path\\cookies.dat",
    autosave => 1,
    ignore_discard => 1,
  );

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

# We need to follow redirects for POST too.
push @{ $mech->requests_redirectable }, 'POST';
$mech->default_headers->push_header( 'Accept-Language' => 'en-US, en;q=0.8, *;q=0.1' );