#!/usr/bin/perl use strict; use CGI ':standard'; use PDF::API2; use MIME::Lite; use utf8; $Name = param('name'); $Email = param('email'); $Subject = param('subject'); $Contents = param('contents'); ##

##

print "Content-Type:text/html\n\n";







Thank you $Name for your message entitled $Subject


Your Message was:


$Contents


I will contact you as soon as possible if a response is required.


$MyName










##

##


$txt->font($fnt, 8);
$txt->translate(25,740);
$txt->fillcolor('black');
$txt->text("$Contents");


##

##


my $Message = "
Thank you $Name for your email.
Subject: $Subject
Your Message was:
$Contents
";

my $msg = MIME::Lite->new (
  From => $From,
  To => $To,
  Subject => "Subject: re: $Subject",
  Type =>'multipart/mixed'
) or die "Error creating multipart container: $!\n";

###### Add the text message part
#
$msg->attach (
  Type => 'HTML',
  Data => "$Message",
) or die "Error adding the text message part: $!\n";

##### Send the Message

$msg->send;