#!/usr/bin/perl -w

use strict;
use warnings;

use MIME::Lite qw( );

my $addr = '...@....com';

sub message {
    my ($to_name, $to_addr, $fr_name, $fr_addr, $subject, $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;
}

message(  # Control
    'a', $addr,
    'a', $addr,
    'a',
    'a',
);

message(  # Test
    "\x{2660}", $addr,
    "\x{2660}", $addr,
    "\x{2660}",
    "\x{2660}",
);