Perl 无法通过sendmail发送邮件

我正在尝试向组发送电子邮件，但无法发送 catch是指我的脚本正在向个人id发送电子邮件，而不是向组发送电子邮件

谷歌搜索了一下，但没什么帮助

对于发送给批量用户，我不想使用alias，但有一些限制

请指教

#!/usr/bin/perl
#!/usr/sbin/sendmail

$to = 'xxxx@yyy.something.com,';
$from = 'abc@something.com';
$subject = 'Subject';
#$message = 'This is test mail';



open(MAIL, "|/usr/sbin/sendmail -t");

# Email Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
# Email Body
print MAIL "print something";

close(MAIL);
#print "Email Sent Successfully\n

---

将收件人列表作为sendmail命令行参数传递-AFAIR它应该可以在Linuxes上为第几百个收件人工作

#!/usr/bin/perl
use strict;
use warnings;

my @to = ('xxxx@yyy.something.com','yyyy@xxx.something.com');
my $from = 'abc@something.com';
my $subject = 'Subject';

#my $child_pid = open(MAIL, "|-")   // die "can't fork: $!";
defined( my $child_pid = open(MAIL, "|-")) || die "can't fork: $!";
if( $child_pid == 0 ) {
   exec( '/usr/sbin/sendmail', '-i', '--', @to) || die "can't exec: $!";
}

# Email Headers & Body
print MAIL << "END" ;
From: $from
Subject: $subject

print something
END
close(MAIL) && print "Email Sent Successfully\n";

#/usr/bin/perl
严格使用；
使用警告；
我的@to=（'xxxx@yyy.something.com','yyyy@xxx.something.com');
我的美元来自中国abc@something.com';
我的$subject='subject'；
#我的$child_pid=open（MAIL，“|-”//die“不能分叉：$！”；
已定义（my$child_pid=open（MAIL，“|-”）| | die“不能分叉：$！”；
如果（$child_pid==0）{
exec（'/usr/sbin/sendmail'，'-i'，'--'，@to）| | die“不能执行：$！”；
}
#电子邮件标题和正文
打印邮件只是为了让你知道，第二个shebang
#/usr/sbin/sendmail
什么也不做。这只是一个评论。