t/builtins/system/dump_args-p5.pl

   1 # This script needs a comment explaining it's purpose in the test suite
   2 # or may be moved or deleted. It doesn't seem to be used by the other
   3 # "*.t" files in this directory.
   4
   5 ($out,$") = splice @ARGV, 0, 2;
   6 $" = chr($");
   7
   8 open STDOUT, ">$out"
   9   or die "Couldn't create '$out' : $!";
  10 binmode STDOUT;
  11 print "@ARGV";