my $mech = WWW::Mechanize->new();
my $url = 'http://xxx;

$mech->get( $url );

$mech->submit_form(
     form_number => 1,
     fields      => {
     	Username    => 'someone',
     	Password    => 'pass',
  	Server 	    => 'Live'
     	}, 	 
 );
die unless ($mech->success);