sub message {
    my ($email, $from, $name, $message, $domain, $referer) = @_;
    $message .= qq{\n\n---\nYour free service at http://example.com\n};
    utf8::decode($message);
    utf8::upgrade($message);
    utf8::decode($name);
    utf8::upgrade($name);
    $from = "=?UTF-8?B?" . encode_base64(encode("utf8", qq{"$name"}), "") . "?= <$from>";
    my $subject = "New  message from $referer";
    $subject = "=?UTF-8?B?" . encode_base64(encode("utf8", qq{$subject}), "") . "?=";
    utf8::decode($subject);
    utf8::upgrade($subject);
    my $msg = MIME::Lite->new(
        From    => $from,
        To      => "$email",
        Subject => $subject,
        Type    => 'multipart/related'
    );
    $msg->attach(
        Type    => 'text/plain; charset=UTF-8',
        Data    =>  $message,
        Encoding => "quoted-printable" );
    $msg->attr("content-type.charset"   => 'UTF8');
    $msg->send;
    page("Message sent. Thank you", qq{<p>Thank you very much. Your message has been sent.<br/><br/>Go back to: <a href="$referer">$referer</a>});
}