use LWP::UserAgent;
use HTTP::Cookies;

my $WWWAgent = LWP::UserAgent->new();
my $cookies=new HTTP::Cookies(file=>'./cookies.dat',autosave=>1);
$WWWAgent->cookie_jar($cookies);
...