Honestly, I don't think that the file is not deleted, but you still don't the error message. I suggest you replace
unlink $file or die "\nCould not delete the backup $file: $!";
by
print FILE "Now going to delete $file\n";
if(unlink $file) {
print FILE "$file has been removed (says 'unlink')\n";
if(-e $file) {
print FILE "Surprise, surprise! $file is still here\n";
}
} else {
print FILE "'unlink' says: $!\n";
if(-e $file) {
print FILE "And indeed, we still see $file\n";
} else {
print FILE "A miracle occured! $file is gone!\n";
}
}
--
Ronald Fischer <ynnor@mm.st>