use WWW::Mechanize;
my $browser = WWW::Mechanize->new;

$browser->get($url);
$browser->submit_form(
        form_name => 'logon',
        fields    => {
            UserID   => $user,
            Password => $pass
        });