#!/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', '<password>' );

$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";