say $mech->current_form->{name}; # ??
# Use of uninitialized value in say at ./5.pluto.pl line 55.
####
# largely untested
my @date_fields = $mech->selector('.//*[@name="date"]', node => $self->current_form );
$mech->set_field( $date_fields[1] => $guess );
####
$mech->set_fields( $name => [ 'foo', 2 ] );