>perl -wMstrict -le
"sub opt_w_proto ($;$) {
   my ($x, $y) = @_;
   $y //= 42;
   print qq{x $x  y $y};
   }
 ;;
 sub opt {
   my ($x, $y) = @_;
   $y //= 42;
   print qq{x $x  y $y};
   }
 ;;
 opt_w_proto(7);
 opt_w_proto(7,0);
 ;;
 opt(7);
 opt(7,0);
"
x 7  y 42
x 7  y 0
x 7  y 42
x 7  y 0