#!/usr/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
my $torecipients = "gmacfadden\@aol.com"; #substitur your email address here
my $header1 = qq (Mime-Version:1.0);
my $header2 = qq (Content-type: text/html; charset="iso-8859-1");
my $content = qq(
);
print header;
print start_html("Create form within HTML E-Mail");
$ENV{PATH} = "/usr/sbin";
open (MAIL, "|/usr/sbin/sendmail -oi -t") or
&dienice("Can't fork for sendmail: $!\n");
print MAIL "$header1\n";
print MAIL "$header2\n";
print MAIL "To: $torecipients\n";
print MAIL "From: anybody\@anywhere.org\n";
print MAIL "Subject: Please complete the enclosed form\n\n";
print MAIL "$content\n";
close(MAIL);
print <The requested form data has been embedded in an email sent to you! Thank you
EndHTML
print end_html;
sub dienice # The dienice subroutine handles errors.
{
my($errmsg) = @_;
print "Error
\n";
print "$errmsg
\n";
print end_html;
exit;
}