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

$ua = LWP::UserAgent->new;
$ua->request(POST 'http://url/loginscript', [ username => 'yourusername', password => 'yourpassword' ]);