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

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;