Ok, I will post my source incase someone notices I did something stupid again. Also I am posting the script because I am wondering if ANYONE here can discover why this emailed me about 200 times per minute. I tried to run the script and it took forever and ever to load so I just let it sit there thinking something will happen eventually, it turns out the script will run forever and will totally spam the email add you put in there until you STOP the script....anyone see why this happens?

#!/usr/local/bin/perl -w

use strict;

# Let's have some fun my'ing things, shall me?
my %form;
my $url;
my $message;
my $sendmail;
my $subject;
my $signature;
my $disclaimer;
my $adminmail;
my $redirect;

use CGI;
my $query = CGI->new;

print $query->redirect($redirect);

%form = %{$query->Vars};

##################### BEGIN EDITING THIS SECTION #####################
+########
$sendmail = "/var/qmail/bin/qmail-inject";
$url = 'http://secretrealmofme.hypermart.net';
$adminmail = 'admin@mail.com';
$redirect = "http://secretrealmofme.hypermart.net";
$subject = "Your $form{'friend'} thought you might be interested";
$signature = 'Your Name';
( $message = <<"EOM" ) =~ s/^\s+//gm ;
Your friend $form{'username'} recently visited our site and thought yo
+u might be interested!\n\n

Our site has lots of stuff! blah blah blah.\n\n

Please take a look at $url and see what all the fuss was about!\n\n

EOM
;

( $disclaimer = <<"EOD" ) =~ s/^\s+//gm ;
<font color=red>    This message was sent from your friend from $ENV{'
+REMOTE_ADDR'} .
    We do not believe in spamming and would never do so.  Your friend 
    personally added your email address and sent this.</font>

EOD
;


#################### STOP EDITING FOR NOW ############################
+#########

### Make sure things are being completed, die slackers!
if ($form{'username'} eq "") {
print "<font color=red><li>Please click back and fill out your name!</
+font>\n";
exit;
}
if ($form{'email'} eq "") {
print "<font color=red><li>Please click back and fill in your friend's
+ email address!</font>\n";
exit;
}

# All done, let's send the email
open (MAIL, '|-', "$sendmail -t") or die("Cannot open file: $!\n");
print MAIL "To: $form{'email'}\n";
print MAIL "From: $adminmail\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$message\n";
print MAIL "$disclaimer\n";
close(MAIL);


# Let's give them something to look at, might as well, they were nice 
+enough to fill out the form!

####################### BEGIN EDITING HERE 2 #########################
+#############
print <<end_of_results;                     # Do not alter this line!

end_of_results
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.