# This script needs a comment explaining it's purpose in the test suite
# or may be moved or deleted. It doesn't seem to be used by the other
# "*.t" files in this directory. 

($out,$") = splice @ARGV, 0, 2;
$" = chr($");

open STDOUT, ">$out"
  or die "Couldn't create '$out' : $!";
binmode STDOUT;
print "@ARGV";