#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common;
  
my $ua = new LWP::UserAgent;
 
my $r = $ua->request(POST 'http://www.somesite.com/Login.jsp', Submit=>'Sign in', 
requiredUserName=>'123abc', 
requiredPassword=>'abc');

if ($res->is_success) {

}else{

}