$ cpan -i MIME::Lite

……

  /usr/bin/make install  -- OK

use MIME::Lite;

# 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱

$to = '634412144@qq.com';

# 抄送者，多个使用逗号隔开

# $cc = 'test1@runoob.com, test2@runoob.com';

#发送者邮箱

$from = 'qin_zhongbao@163.com';

#标题

$subject = '菜鸟教程 Perl 发送邮件测试';

$message = '这是一封使用 Perl 发送的邮件，使用了 MIME::Lite 模块。';

$msg = MIME::Lite->new(

                 From     => $from,

                 To       => $to,

                 Subject  => $subject,

                 Data     => $message

                 );

$user='qin_zhongbao@163.com';

$pass = '123456'; 

$res = $msg ->send('smtp', "smtp.163.com",AuthUser=>$user,AuthPass=>$pass);

    if($res){

    print "邮件发送成功\n ";

    }else{

    print "邮件发送失败\n ";

    }