#!/usr/bin/perl

use LWP::UserAgent; 
use HTTP::Response;
use HTTP::Request::Common qw(POST);


$ua = LWP::UserAgent->new; 
$ua->agent("Mozilla 8.0...");

$username = "username";
$password = "password";

my $req = (POST 'http://www.domain.com/login.php', 

["Username" => "$username", 
"Password" => "$password"]);

$request = $ua->request($req); 
$content = $request->content; 

if ($res->is_success) {
     print ("success");
     exit;
}

else {
print ("failure");
}