use File::Temp qw(tempfile);
my($fh,$file) = tempfile(UNLINK => 1);
print $fh $ARGV[0];