#!/usr/bin/perl -w
use strict;

use WWW::Mechanize;
use MIME::Base64;

my $M = WWW::Mechanize->new();
my @args = (
        Authorization => 
		"Basic ". MIME::Base64::encode( 'user:password' )
);

$M->credentials( 'anywhere.com', 'Registerd Users', 'user', 'password' );

$M->get('http://anywhere.com/mytest?rm=test', @args);
die unless $M->success();

$M->submit_form();
die "I've had no success" unless $M->success();