say $mech->current_form->{name};    # ??
  # Use of uninitialized value in say at ./5.pluto.pl line 55.