sub message {
    my ($to_name, $to_addr, $fr_name, $fr_addr, $subject, $body) = @_;

    $_ = encode('MIME-Header', $_)
        for $to_name, $fr_name, $subject;

    utf8::encode( $body );

    my $msg = MIME::Lite->new(
        From    => qq{"$fr_name" <$fr_addr>},
        To      => qq{"$to_name" <$to_addr>},
        Subject => $subject,
        Type    => 'multipart/related',
    );
    $msg->attach(
        Type     => 'text/plain; charset=UTF-8',
        Data     => $body,
        Encoding => 'quoted-printable',
    );
    $msg->send;
}