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

##</code><code>##

# largely untested
my @date_fields = $mech->selector('.//*[@name="date"]', node => $self->current_form );
$mech->set_field( $date_fields[1] => $guess );

##</code><code>##

 $mech->set_fields( $name => [ 'foo', 2 ] );