my $mech = WWW::Mechanize->new();
$mech->get('http://www.forex.com/login.html');
$mech->field('txtLogin', 'myuserid');