my $mech = WWW::Mechanize->new( 
  cookie_jar => HTTP::Cookies->new(
    file => '/tmp/my_cookies.dat',
    autosave => 1,
  )
 );