Select Code to Download

my $data = "Goodbye in Japanese is \x{3055}\x{3088}\x{306A}\x{3089}.";

use Encode;
use MIME::Entity;
...
        "MIME-Header", $subject
    ),
);

use Net::SMTP;

...
    print( STDERR, "Rejected recipient.\n" );
}
$smtp->quit();