use WWW::Scripter;
use  HTTP::Cookies::Netscape;

  
  
my $cook= HTTP::Cookies::Netscape->new(file => 'ciao.txt' ,ignore_discard => 1,autosave=>1);


$m = new WWW::Scripter(autocheck=>1,cookie_jar=>$cook) ;

     
$m->use_plugin(JavaScript =>
          engine  => 'SpiderMonkey'

);                 

  

 
    $m->get( 'http://mypage/provaw.php');


          
          
 my $res=$m->response();


$m->cookie_jar->extract_cookies($res);
$m->cookie_jar->save;
my $cookie_content = $m->cookie_jar->as_string;
print $cookie_content;