доброго времени суток, у меня вопрос, нужно чтобы потомки могли читать файл сохраняя смещение, примерно так: open(FILE, '<fortest') || die $!; for (1..2) { my $pid = fork; die $! unless defined $pid; unless ($pid) { open(TMP, '>/tmp/'.$$); until (eof FILE) { my $string = <FILE>; print TMP $string; } exit(0) } } проблема в том что строки разрываются и общий размер файлов '>/tmp/'.$$ получается большим чем исходный размер файла fortest. вопрос - как такое грамотно осуществить?