Первая строчка

[Biggelow]

Народ подскажите пожалуйста!

Имеется тествовый файл с большим количеством строчек, нужно прочитать первую строку размером 10 символов, не читая весь файл в массив(типа файл большой). Чтобы система вообщем не грузилась.

Плиз конкретный рецепт, а не ссылку на литературу. Просто срочно надо!

[Phoinix]

Biggelow

open (FILE,  \'file.txt\');
my $row = substr(, 0, 10);
close FILE;

P.S. Хотя можно и так еще меньше памяти:

open (FILE,  \'file.txt\');
read FILE, my $row, 10;
close FILE;

[Biggelow]

Большое спасибо!