my $to      = 'me@my_email.com';
my $from    = 'nobody@nowhere.com';
my $subject = 'test message';
my $body    = 'message body';

sendmail($to,$from,$subject,$body) or err_trap("Sendmail Choked");

##</code><code>##

use Data::Dumper;
$email= $in{'EMAIL'};
$mserv= $in{'ELIST'};
print "Content-type: text/html\n\n<pre>\n";
print Dumper \%in;
print '</pre>';
exit;

##</code><code>##

http://www.afoto.com/cgi-bin/boo/amail.cgi?ELIST=jfreeman@tassie.net.au&EMAIL=nobody@nowhere.com

##</code><code>##

Return-Path: <anonymous@hercules.dns-solutions.net>
Received: from hercules.dns-solutions.net (hercules.dns-solutions.net [209.66.124.56])
	by perseus.tassie.net.au (8.12.6/8.12.6/RG2.3) with SMTP id gA60uxp7000438
	for <jfreeman@tassie.net.au>; Wed, 6 Nov 2002 11:57:00 +1100 (EST)
Received: (qmail 3141 invoked by uid 441); 6 Nov 2002 00:56:59 -0000
Date: 6 Nov 2002 00:56:59 -0000
Message-ID: <20021106005659.3140.qmail@hercules.dns-solutions.net>
To: jfreeman@tassie.net.au
From: nobody@nowhere.com
Subject: subscribe
X-UIDL: Moa!!,#]!!9dU"!0[G!!