($tmp_fh, $tmp_filename) = tempfile(DIR => $tmp_dir);
while(<$fh>) {
  print $tmp_fh $_;
}
close($tmp_fh);