my $mail = MIME::Lite->new( 
				From => "some address",
                                To => "some email address",
                                Subject => "Test Mail",
                                Type => ,
                                Data => "瓦卡瓦卡", # Non-English data in body.
                              );

$mail->send;