print Dumper( $mech_obj->current_form() );