## use strict; use WWW::Mechanize; use HTTP::Cookies; use LWP; my $user = 'name'; my $pass = 'xx123xx'; my $url = "http://www.forum.com"; my $mech = WWW::Mechanize->new(); $mech->cookie_jar(HTTP::Cookies->new()); $mech->get($url); $mech->form_name("signin_form"); $mech->field('Username' => $user); $mech->field('Password' => $pass); $mech->submit();