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