Perl中使用SendMail发送邮件

在perl中使用本机的sendmail发送邮件的代码如下：

#!/usr/bin/perl

use strict;

my($r_mail) = '[e-mail]';
my($s_mail) = '[e-mail]';
my($subject) = '邮件标题';

open(MAIL, '|/usr/lib/sendmail -t');
select(MAIL);
print<<"END_TAG";
To: $r_mail
From: $s_mail
Subject: $subject

邮件内容，database is ok!

END_TAG