请教使用Net::SSH::Perl模块ssh登录

请教使用Net::SSH::Perl模块ssh登录
请大家先看看我写的代码(lcg-info-dynamic-pbs-new.pl)
my %SSHs;
sub setSSH{
chomp $_[0];
my($url,$user,$passwd,$hostname) = split /\s+/, $_[0];
my $ssh = Net::SSH:Perl->new($url,protocol => 2, debug => 1);
$ssh->login($user,$passwd);
$SSHs{$hostname} = $ssh;
}
while(<FILE>{
&setSSH($_);
}
在这段代码中,当我的FILE文件里头只有一行输入的时候(即只登录一个远程主机的时候),是没问题的,可是当我FILE文件里头有多行输入的时候,后面的登录就会报这样的错误:
Net::SSH: Can't bind socket to port 1023: 地址已在使用 at lcg-info-dynamic-pbs-new
请问这是什么原因,难道不能使用同一个端口同时登录多个主机吗?如果是那样的话,请问得怎么解决这个问题?很急的一件事,还请各位达人们帮忙解决一下,谢谢了先