On Wed, Dec 25, 2013 at 06:16:03PM +0400, Oleg Nurtdinov wrote: > 1. $string = readline( $self->{$fd}> ); Ещё: $x = $self->{$fd}; $s = <$x>; # или $self->{$fd}->getline; # perldoc IO::Handle >2. можно попробовать local *STDOUT = $my_fd; Ещё: select $self->{$fd}; # perldoc -f select # ...который "select FILEHANDLE"