use WWW::Mechanize; my $mech = WWW::Mechanize->new( autocheck => 1 ); # connect to the adsl setting page $mech->get( "http://192.168.1.1" ); # connect with user name and password my $r = $mech->submit_form( form_number => 2, fields => 'uiViewUserName' => "admin", 'uiViewPassword' => "admin"); die "Couldn't submit form" unless $r->ls_success; # print the content of the admin page so that i know i'm in #print $mech->content; #### >Log In