Help for this page

Select Code to Download


  1. or download this
    local *ARGV = [$path];
    
  2. or download this
    perl -wlE 'sub say_argv { say @ARGV, $ARGV; }; $ARGV=9; say_argv; do {
    + local *ARGV = ["foo"]; say_argv; }; say_argv' 1 2 3
    1239
    foo9
    1239