sub test { sig my $x='default', my $y, named => my $named, OPT; ... code ... }