if (defined $new_file) {
    unlink($new_file)
        or die "unlink of $new_file failed: $!\n";
}