eval { $mech->submit_form ( form_number => 1 , fields => { foo => "bar" } ); }; if ( $@ ) { # error print "error ($@) "; } else { # success $c = $mech->content; print $c; }