my $sender = new Mail::Sender {
        smtp => "localhost",
        from => "me@myhost.com",
} or die "Can't create Mail::Sender object: $Mail::Sender::Error\n";

$sender->Open({
        to => "someone@somewhere.com",
        subject => "My Subject",
        ctype => 'text/html; charset=us-ascii',
        encoding => "quoted-printable",
}) or die "Can't open the message: $sender->{'error_msg'}\n";

$sender->SendEnc($message);

$sender->Close();