my $part = MIME::Lite->new(
                 Type     => 'TEXT', 
		 Data     => $mailtext, 
);
$part->attr('content-type.charset' => 'UTF-8');

$msg->attach($part);