perl. пример форвайдинга портов

на локальной машине создан сокет , при подключении к которому подключение форвайдится на другой порт локальной машины или на удалённую машину

помогите плиз

спасибо