Perl телнет сервер

[Mayor]

В общем пытаюсь на перле написать телнет сервер --- перл скрипт начинает прослушивать заданый порт и выводить все переданое по нему на экран, проблемма возникла с обратоной передачей по идее в ответ мнформация должа вводиться с клавиатуры и тут же остсылаться на подконектившийся хост, но select class в упор отказывается работать с stdin
подскажите как к селект объекту добавить stdin и так что бы select стал реагировать на каждое нажатие клавиши ....

[RXL]

http://www.cpan.org/modules/by-module/IO/IO-Select-Trap-0.032.readme

IO::Select::Trap - IO::Select() functionality on Scalar-based Filehandles

Стандартные дескрипторы perl-а тут не помогут.
Посмотри http://www.cpan.org/modules/by-module/IO/ - есть IO::Tty.

Может сервер лучше делать на более специализированных модулях?
Напр. посмотри тут: http://www.cpan.org/modules/by-category/16_Server_and_Daemon_Utilities/NetServer/