On 12/9/11, Mons Anderson <mons at rambler-co.ru> wrote: > # dup.pl > open my $fh, '<&=',0 or die; > print fileno STDIN, ":", scalar readline STDIN; > close STDIN; > print fileno $fh, ":", scalar readline $fh; Это уже другая проблема.