use HTTP::Request::Common;

my ($user, $password);  # Set to whatever ...
my $request = POST("http://www.whatever", 
                   Content => [ UserID => $user,
                                Password => $password,
                              ]);

# Feed the request to LWP::UserAgent, etc.