use strict;
use MIME::Lite;

my $contents = <<EOT;
Hello there!
EOT

my $msg = MIME::Lite->new(
    From    => 'test@mydomain.com',
    To      => 'test@yourdomain.com',
    Subject => 'Test Message',
    Type    => 'text/html',
    Data    => $contents,
);

$msg->attr('content-type.charset' => 'UTF8');
$msg->send();