关于远程控制的问题。

在一个局域网里面有2台测试机，我想用一台控制另一台，现在已经有一个方法就是在另一台测试机打开一个完全共享目录，然后随时可以向里面读写。我想用perl自带的功能实现，就写啦如下的程序．
use strict;  
use Net::Telnet();
use constant HOST => 'ＸＸＸＸＸＸ';
use constant USER => 'ＸＸＸＸＸＸ';
use constant PASS => 'ＸＸＸＸＸＸ';

my $telnet=Net::Telnet->new(HOST);
$telnet->login(USER,PASS);
#my @lines=$telnet->cmd('ps -ef');
#print @lines;

运行这个程序之后的结果显示：problem connecting to "ＸＸＸＸ", port 23: Unknown error at C:\Documents an
d Settings\lyu\Desktop\Telnet\telnet.pl line 11
这个是什么原因呢。我想要实现一个对另一台ＰＣ的控制，然后时时监控另一台ＰＣ的运行情况，这个perl应该如何入手