#!/usr/bin/perl use strict; use HTML::Form; use LWP::UserAgent; my $ua = new LWP::UserAgent; $ua->agent( 'Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-US; rv:1.1) Gecko/20020826' ); my $req = new HTTP::Request( 'GET', 'http://192.168.2.1:88/' ); my $res = $ua->request( $req ); my $form = HTML::Form->parse( $res->content(), $res->base() ); $form->value( 'pws', '' ); $req = $form->click(); $res = $ua->request( $req ); $req = new HTTP::Request( 'GET', 'http://192.168.2.1:88/tools_gateway.htm' ); $res = $ua->request( $req ); $form = HTML::Form->parse( $res->content(), $res->base() ); $req = $form->click(); $res = $ua->request( $req ); print "Rebooting now...\n";