## $url = "http://asiwsws2.ms.com:7101/DPSLogOn"; $mech->post( $url ); print " Success 1\n" if( $mech->success ); $mech->submit_form ( form_name => 'loginfrm', fields => { site => 'pso', zone => 'pso1', user => 'dpsasm', password => 'XXXXX' }, );