package Nonce;
use base 'WWW::Mechanize';
sub get_basic_credentials { return qw( user password ) }

package main;
my $M = Nonce->new();
$M->get('http://anywhere.com/mytest?rm=test', @args);

# etc.