#!/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";