my $new_stat = stat($tmp_fn) or die "File $tmp_fn disappeared under my hands: $!\n";
if ($new_stat->mtime <= $orig_stat->mtime && $new_stat->size == $orig_stat->size) {
unlink $tmp_fn;
my $new_stat = stat($tmp_fn) or die "File $tmp_fn disappeared under my hands: $!\n";
if ($new_stat->mtime <= $orig_stat->mtime && $new_stat->size == $orig_stat->size) {
unlink $tmp_fn;