open TMP, ">" . $tmp or die "Couldn't open $tmp: $!";