Select Code to Download

unless (unlink $file) {
  carp "Couldn't remove file $file!\n";
  ... ...
}

unlink $file or do {
 #copy and paste of old code
};