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

    my $fr = qq{"$fr_name" <$fr_addr>};
    my $to = qq{"$to_name" <$to_addr>};

    utf8::encode( $_ ) for $to, $fr, $subject, $body;

    my $msg = MIME::Lite->new(
        From    => $fr,
        To      => $to,
        Subject => $subject,
        Type    => 'multipart/related',
    );
    $msg->attach(
        Type     => 'text/plain; charset=UTF-8',
        Data     => $body,
        Encoding => 'quoted-printable',
    );
    $msg->send;
}