my $msg=MIME::Lite->new( From=>$opt->{from}, To=>$opt->{to}, #Subject=>$opt->{subject}, Subject=>"=?UTF-8?B?" .encode_base64(encode("utf8", $opt->{subject}), "") . "?=", #Type => 'text/html', #'Content-transfer-encoding'=>'7bit', Data =>encode(