use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;

use constant MONK_LOG=> 'http://www.perlmonks.org/index.pl';

$ua=LWP::UserAgent->new;
$newagent= 'loginTOmonks/1.0 (' . $ua->agent .')';
$ua->agent($newagent);

$ua->cookie_jar(HTTP::Cookies->new(file=>"lwpcookies.txt",autosave=>1));
#$ua->cookie_jar(HTTP::Cookies->new());

$res=POST(MONK_LOG, Content=> [op=>'login', user=>'doctor_moron', passwd=>'mypasswd']);

$res= $ua->request($res);
print $res->status_line, "\n";

#the way i see cookies 
print $ua->cookie_jar->as_string();