关于perl的telnet问题，各位大侠救命啊.....

#! /usr/bin/perl

use Net::Telnet ();

$t = new Net::Telnet (Timeout => 60);
   $t->open("192.168.16.8";
$t->login('administrator', '13');
$t->waitfor("/c:/";
@lines = $t->cmd('dir');
for($i = 0;$i < @lines;$i++)
{
if($lines[$i] =~ /^09/)
{
  @fd = split(/\s+/,$lines[$i]);
  last;
}
}
print STDERR "my ip: " . $fd[0] . "\n";

我在CMD调试的结果是perl -d 1.pl

C:\>perl -d 1.pl

Loading DB routines from perl5db.pl version 1.3
Editor support available.

Enter h or `h h' for help, or `perldoc perldebug' for more help.

main:1.pl:5): $t = new Net::Telnet (Timeout => 60);

  DB<1>

到这句说明我的TELNET没装好么，还是什么问题，请各位大侠指教啊。。。。

不要括弧的