use strict;
use warnings;

use WWW::Mechanize;


my $agent = WWW::Mechanize->new( autocheck => 1 );

$agent->credentials( 'www.routerlogin.com', 'WGR614v4', 
                     'user', 'password' );

$agent->get( 'http://www.routerlogin.com/s_status.htm' );

print $agent->content();

##</code><code>##

Error GETing http://www.routerlogin.com/s_status.htm:
Unauthorized at mytest.pl line 14