Select Code to Download

unlink $file or die "\nCould not delete the backup $file: $!";

print FILE "Now going to delete $file\n";
if(unlink $file) {
...
    print FILE "A miracle occured! $file is gone!\n";
  }
}