Help for this page

Select Code to Download


  1. or download this
    my $to      = 'me@my_email.com';
my $from    = 'nobody@nowhere.com';
...
my $body    = 'message body';

sendmail($to,$from,$subject,$body) or err_trap("Sendmail Choked");
  2. or download this
    use Data::Dumper;
$email= $in{'EMAIL'};
...
print Dumper \%in;
print '</pre>';
exit;
  3. or download this
    http://www.afoto.com/cgi-bin/boo/amail.cgi?ELIST=jfreeman@tassie.net.a
+u&EMAIL=nobody@nowhere.com
  4. or download this
    Return-Path: <anonymous@hercules.dns-solutions.net>
Received: from hercules.dns-solutions.net (hercules.dns-solutions.net 
+[209.66.124.56])
...
From: nobody@nowhere.com
Subject: subscribe
X-UIDL: Moa!!,#]!!9dU"!0[G!!