Select Code to Download

use strict;
use WWW::Mechanize;
...
    $mech = thaw($stored->[0]);
    $mech->submit_form(form_number=>1);
}

use strict;
use WWW::Mechanize;
...
    $mech = thaw($stored->[0]);
    $mech->submit_form(form_number=>1);
}

Can't locate object method "scheme" via package "URI::http" at /usr/sh
+are/perl5/URI.pm line 52.

use strict;
use WWW::Mechanize;
...
    # submit form with (presumably) original session
    $mech->submit_form(form_number=>1);
}

use strict;
use WWW::Mechanize;
...
    printf "After thaw & submit: \%s\n", $mech->response()->headers()-
+>as_string();
    printf "Page session id: \%s\n\n", $mech->content();
}

~$ perl ./mech-test.pl
Before freeze & save: Set-Cookie: PHPSESSID=p9ogedv2qf1r5h664la79is1j2
+; path=/
...

Page session id: tq3devkvch2t5fsq6qbp707de4