perl能实现telnetd驻守程序吗？

本帖最后由 疑似精神病 于 2010-10-14 16:52 编辑

例如：
两台机器A和B。

B上运行着telnetd服务。
A机器用perl实现一个驻守23端口的脚本程序。

别的用户通过telnet连接A机器的23端口时，A上的perl脚本程序提供服务，然后再去连接B上的telnetd。用户输入的命令，perl脚本程序就再传给B的telnetd。
当用户输入某些特殊的命令时，perl脚本程序就把用户的命令修改，然后在发给B。

比方客户输入haha，perl脚本程序直接把haha传给B机器。
但是用户输入heihei的时候，perl脚本程序就修改成xixi，传给B机器。

perl脚本程序就相当于一个代理角色。

大概是这个思路，不知道perl是否可以实现？大家给点思路。
或者有现有的开源程序能担任这种类似代理的角色的，那就更好了。

望大家赐教~

Network Programming with Perl

推荐看这本书，第一章