请帮我诊断这段代码

[sydongdu]

这段代码使用了net下的smtp模块，用于发送邮件，请大家帮我测试一下，在你们公司的环境中，看能不能发送邮件。
如果下面文件名为mail.pl的话，
可以用命令
perl mail.pl 邮件服务器名称 发送地址 接受地址
大家根据自己公司的情况输入，看是否能够得到邮件。

我刚刚到一个公司，不知道这里的邮件服务器是否有所限制，还是这个代码本身有问题。请大家帮我验证一下。

====================================================
#!/usr/bin/perl

print "Hello, World...\n";
#Sends build completed e-mail message
#with Net::SMTP Module.
#
#Usage:
#perl mail.pl mail_server from_address to_adress
#
use Net::SMTP;
$ server = $ ARGV[0];
$ from_address = $ ARGV[1];
$ to_address = $ ARGV[2];

#If you have problems,turn to debugging output.
$ mailserv = Net::SMTP->new ($ server);
unless($ mailserv){
die "不能连接到发送邮件服务器（SMTP Server）: $ server,$!\n";
}

$ data ='主题：编译完成
已经成功编译。
';

$ mailserv-> mail($from_address);
$ mailserv-> to($ to_address);
$ mailserv-> data($ data);

print "sended!";
# close connection.
$ mailserv->quit();
====================================================

[klbt]

关注，帮你顶。