use MIME::Lite;
my $msg=MIME::Lite->new(
From=>'y6cme@perlsoft.org',
Sender=>y6cmE,
To=>'china-pm@pm.org',
Subject=>"To: Qiang",
Type=>'multipart/mixed',
);
$msg->attr('content-type.charset'=>'UTF8');
$msg->attach(Type=>'TEXT',Data=>"呵呵，好像你的编码有一点问题，如果暂时解决不了可以先用这个试试（见附件）。");
$msg->attach(Type=>'unkown',Path=>"send_pm.pl",Filename=>"send_pm.pl",Disposition=>'unkown');
$msg->send("smtp","mx.develooper.com");