my ($fh, $nam) = File::Temp::tempfile;
print $fh <ARGV>;