my $username = usename;
my $password = password;
my $from  = fromaddress;
my $to       = to;
my $subject  = subject;
my $body     = body;
my $host = host;
my $port = port;
my $bcc = bcc;
my $email = Email::MIME->create(
header_str => [
From    => Email::Address::XS->new($display_name,$from),
To      => $to,
Subject => Encode::encode('MIME-Header-ISO_2022_JP', $subject),
],
parts => [ @body1 ],
);
$email->header_str_set( Bcc  => $bcc_a);
$_->encoding_set( 'base64' ) for $email->parts;
try_to_sendmail(
    $email,
    {
            transport => Email::Sender::Transport::SMTP::TLS->new(
            host     => $host,
            port     => $port,
            username => $username,
            password => $password,
        )
    }
) or do {
    print "Error occured while mail send\n";
}