#!/usr/bin/perl
use warnings;
use strict;
use WWW::Mechanize;

my $url = 'http://192.168.0.1/';

my $agent = new WWW::Mechanize;

$agent->get($url);
$agent->submit_form(
                    'form_number' => 1,
                    'fields'      => {
                        'username'  => 'myuser@sbcglobal.net',
                        'password' => 'goombah',
                    }
                    );

print  $agent->content;

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

##</code><code>##

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