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

my $ua = LWP::UserAgent->new;

my $req = POST 'http://home.sff.net/login.asp',
               Content_Type => form-data,
               Content => [
                           username=>'jonathanmark',
                           RecordID=>'4142'
                          ];
$req->authorization_basic('jonathanmark', 'nottherealpassword');

my $content = $ua->request($req)->as_string;
print "Content is $content";