use HTTP::Request::Common qw(POST GET);
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
$req = POST 'http://www.northwindtraders.com/dologin.asp',  
     [  Username => 'mike',
        Password => 'mypa$w0rd',
     ];
$req->header(Referer => 'http://www.northwindtraders.com/login.html');
$res = $ua->request($req);