写一个发送邮件的perl脚本问题

本帖最后由 seufy88 于 2011-01-20 11:10 编辑

我现在想写一个perl脚本,给我的邮件服务器发送大量的邮件进行测试.由于刚学perl,遇到了问题
open STDIN,"</path/to/cmd_input";
system "telnet mail.abc.com 25";
while(<>){
        sleep(2);
}

我没有重定向STDOUT和STDERR
文件cmd_input内容如下:
EHLO  chinaunix
MAIL FROM:<[email protected]>
RCPT TO:<[email protected]>
DATA
Subject:test
.

大体意思是从cmd_input文件输入"命令",代替从标准的键盘输入"命令".
实验的结果是只指行了telnet mail.abc.com 25这一条指令就退出了
重定向perl的STDIN以后,system调用的telnet这个程序,它的STDIN应该也被重定向到cmd_input了,但实际好像没有接下来的指令"输入"给telnet
现在我该如何修改,才能正确执行??

想登陸到服務器發郵件是吧, 用expect