sub sendmessage {
    my ($html,$text,$recipient,$reportdate) = @_;
    my $msg = MIME::Lite->new(
        From        => 'foo@bar.org',
        To          => $recipient,
        Subject     => "A message from me",
        Type        => 'multipart/alternative',
        Encoding    => '8bit',
    );
    $msg->attach(
        Data        => $text,
        Type        => 'text/plain',
        Encoding    => 'quoted-printable',
        Disposition => 'inline',
    );
    $msg->attach(
        Data        => $html,
        Type        => 'text/html',
        Encoding    => 'quoted-printable',
        Disposition => 'inline',
    );
    $msg->send();
}