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

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use LWP::UserAgent;

my $ua = new LWP::UserAgent;
my $request = new HTTP::Request( "GET", "http://192.168.0.1/connect.cgi?conn=0" );
#conn=1 to connect
my $response = $ua->simple_request( $request );
my $contents = $response->content();
print "$contents\n";