##
my @date_fields =$mech->selector( './/*[@name="date"]', node => $mech->current_form );
# stderr: Invalid rule, couldn't parse '//*[@name="date"]' at /usr/local/share/perl/5.26.1/HTML/Selector/XPath.pm line 283.
##
##
my @date_fields =$mech->xpath( './/*[@name="date"]', node => $mech->current_form );
##
##
$mech->set_fields(
date => [3, $date_value],
);