sherpa.pl 

my $mech = WWW::Mechanize->new( autocheck => 1 );
#mechanize has alias list
$mech->agent_alias( 'Windows Mozilla');
	  
$mech->get($signon);
	  
#got this from web scarab
$mech->field(goto => "https://my.bigpond.com/cdaredir .. BIG URL");
$mech->field(gotoOnFail => "");
$mech->field(encoded => "false");
$mech->field(gx_charset => "UTF-8");
$mech->field(username => $username);
$mech->field(password => $password);
$mech->submit_form();