请教，使用perl的net::smtp发送邮件能否指定端口，如果可以如何指定！

可以的 ，例：

$smtp = Net::SMTP->new('mailhost', PeerPort => 1666，Timeout => 60);

use Net::SMTP;

# Constructors
$smtp = Net::SMTP->new('mailhost');
$smtp = Net::SMTP->new('mailhost', Timeout => 60);

这是man手册里面的
mailhost 是一个IO::Socket::INET对象
自己看IO::Socket::INET对 new方法 里面有参数指定端口地址

在new的时候加入 PeerPort=>端口号 就可以了.