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

##</code><code>##

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