Perl发送邮件

本文简单的介绍一下使用Perl发送邮件的方法，我们以使用163的SMTP服务器来发送邮件为例，因为需要用户验证，所以前提是我们有163的邮件账户。如果代码中使用到的Perl模块你没有安装，那么执行的时候就会报错，关于Perl模块的安装方法，参照这里。

 

#!/usr/bin/perl -w
use strict;
use Net::SMTP_auth;
 
#smtp邮件服务器和端口
my $smtpHost = 'smtp.163.com';
my $smtpPort = '25';
my $sslPort = '465';
 
#smtp服务器认证用户名密码(就是你登陆邮箱的时候的用户名和密码)
my $username = 'user@163.com';
my $passowrd = 'password';
 
#邮件来自哪儿，要去哪儿,邮件标题
my $from = 'user@163.com';
my $to    = 'to@s