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