#!/usr/bin/perl
use warnings;
use strict;
use HTTP::Request::Common qw(GET POST);
use LWP::UserAgent;

my $ua = new LWP::UserAgent(timeout=> 5);

#now actually post the form 
my $request = POST "http://192.168.0.1/login.cgi", [
   username => 'myuser@sbcglobal.net',
   password => 'goombah',
   ];

my $response = $ua->request($request);
my $content = $response->as_string();
#print "$content\n"; 

#sometimes it asks for the access code, sometimes not 
if ($content =~ /Access Code Required/){
    print "Access Code Required\n";

   my $request = POST "http://192.168.0.1/accessLogin.cgi", [
     pw0 => 4589235692,  #from bottom of modem 
    ];

   $response = $ua->request($request);
   $content = $response->as_string();
   print $content;

}else
   {print "sucess\n"}