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