[PerlChina] [讨论] 大家都用Perl干什么？

[toby]

以下是个发送邮件的perl程序，我调试不成功，哪位帮忙一下，谢谢

#!/usr/bin/perl

use strict;

my($r_mail) = 'win8013 at 163.com';
my($s_mail) = 'win8013 at chinanetcenter.com';
my($subject) = 'subject';

open(MAIL,'|/usr/lib/sendmail -t');
select(MAIL);

print<<"END_TAG";
To: $r_mail
From: $s_mail
Subject: $subject

ILOVECHINA

END_TAG