print MAIL "To: $config->{email_to}\n";
print MAIL "From: $config->{email_from}\n";
print MAIL "Subject: $config->{email_subject}\n";
print MAIL "Content-Type: multipart/alternative; boundary=zzz\n\n";
print MAIL qq^
--zzz
Content-Type: text/plain

$config->{email_comment}

Read the full story at:\n$config->{url}

--zzz
Content-Type: text/html

$UrlHtmlData

--zzz--