Form login

Hej, jeg vil gerne lave en perl fil, der undersøger om en brugernavn er gyldig.  Dette skal undersøges ved at forsøge at logge på.

Jeg har lavet lidt:

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

my ($username, $password) = ('test', 'test');
   
my $ua = new LWP::UserAgent;
my $request = POST 'http://localhost/InfoBase/',
          Content =>['sUID' => $username,'sPWD' => $password];
 
my $response = $ua->request($request);
print $response;

Er der nogen, der har nogle ideer?

På forhånd tak.