Wie kann ich eine Seite erstellen, von wo man "Fake-Mails" absenden kann....??

#!/usr/bin/perl

my $mailprog = '/usr/sbin/sendmail';
my(%in) = &parse_form;

my $Subject = $in{'Subject'};
my $Recipient = $in{'Recipient'};
my $Sendername = $in{'Absender'};

open(MAIL,"|$mailprog -t ") or print STDERR "$!<br>";
print MAIL "To: $Recipient\\n";
print MAIL "From: $Sendername\\n";
print MAIL "Subject: $Subject\\n
";
print MAIL qq|$in{'Mailbody'}|;
close (MAIL);

print "Content-type: text/html\\n
";
print "Mail an $in{'Recipient'} wurde gesendet.";

exit;

sub parse_form{

	my (@pairs, %in);
	my ($buffer, $pair, $name, $value);

	if ($ENV{'REQUEST_METHOD'} eq 'GET') {
		@pairs = split(/&/, $ENV{'QUERY_STRING'});
	}
	elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
		&htmlout;
	}
	else {
		&htmlout;
	}
	PAIR: foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);

		$name =~ tr/+/ /;
		$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		$value =~ s/\||\<|\>//g;

		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		$value =~ s/<!--(.|\n)*-->//g;
		if ($value eq "---") { next PAIR; }
			(exists $in{$name}) ? ($in{$name} .= "~~$value") : ($in{$name}  = $value);
		}
	return %in;

}

mail("EMPFÄNGER", "BETREFF", "NACHRICHT",
     "From: VERSENDER");