#!/usr/bin/perl ############################################################################## # Cliff's SpamBot Killer 1.0 # # Copyright 1998 Shaven Ferret Productions # # Created 7/7/98 # # Available at http://www.shavenferret.com/scripts # ############################################################################## # COPYRIGHT NOTICE # # Copyright 1998 Shaven Ferret Productions All Rights Reserved. # # # # This script can be used\modified free of charge as long as you don't # # change this header thing. By using this script you agree to indemnify # # me from any liability that might arise from its use. In simple English, # # if this script somehow makes your computer run amuck and kill the pope, # # it's not my fault. # # # # Redistributing\selling the code for this program without prior written # # consent is expressly forbidden. # ############################################################################## # Set this variable to the number of e-mail addresses to generate. $generate = 100; ############################################################################## # Congratulations! You've finished defining the variables. If you want to, # # you can continue screwing with the script, but it isn't necessary. # ############################################################################## $| = 1; print "Content-type: text/html\n\n"; print "Contact Us\n";