use WWW::Mechanize;

my $url = 'http://192.168.1.1/';
my $a = WWW::Mechanize->new;
$a->get( $url );
$a->submit_form(
       form_number => 1,
       fields      => { pws => 'dummy' } 
);