sub mailout{
    $sender = new Mail::Sender;

    $sender->Open({
        smtp => 'mail',
        from => "$from",
        fake_from => "$from",
        to => "nobody\@mydomain.com",
        bcc => "$to",
        encoding => "quoted-printable",
        subject => "$subject",
        ctype => "$htype",
        }) || die "Sender error: $sender, $Mail::Sender::Error!\n";



    # body of email
    $sender->SendEnc(@body) || die "Sender error: $sender, $Mail::Send
+er::Error!\n";

    # send email
    $sender->Close || die "Sender error: $sender, $Mail::Sender::Error
+!\n";
}
[download]

Neil Watson
watson-wilson.ca

In case you do figure out how to send HTML e-mail, you should know that many people think it's EVIL:

7 reasons why HTML e-mail is EVIL!!!: link

How HTML Email Invades Your Privacy: link

Why Developers Don't Want HTML Email: link

Security Issues in HTML-based Email: link

BCE
--Your punctuation skills are insufficient!

use Mail::Sendmail;

# Create the message hash
my %mail = (
    To => 'You <your@address.com>',    # To address..
    From => 'Me <my@address.com>',    # From address..
    Message => 'Hello, world!',    # The message body..
    Smtp => 'your.mail.server'    # erase this if you want to use "loc
+alhost" (default)
);

# Send the message
unless (sendmail(%mail)) {
    # Error!
}

# All is well.
[download]

1. code, please?
2. print MAIL "\"Real Name\" <" . $address . ">\n"
(This is what you meant, isn't it?)
3. don't :-)

Is there a particular way to send mail in HTML

Hmm... look at MIME::Lite::HTML, which would solve most of the problems you seem to be having. (ESP mode on, really.)

$mail->data(); 
$mail->datasend("To: you@you.com"); 
$mail->datasend("From: me@me.com\n"); 
$mail->datasend("Subject: Subject Text\n"); 
$mail->datasend("\n"); 
$mail->datasend("Email content\n\n"); 
$mail->dataend();
[download]