in reply to Text File

why not
unlink $new_file if -e $new_file;

[download]
???

In Section Seekers of Perl Wisdom