if (unlink($file) == 0) {
           print "File $file deleted successfully.\n";
       } else {
           print "File $file was not deleted.\n";
       }

unlink($file) or
     print "File $file was not deleted: $!.\n";