Perl. Считывание файла целиком.

[Sceptik]

Мне нужно чтобы скриптом полностью считывался файл в переменную. Стандартных функции не нашел в голову приходит только примерно следуещее:

Код: Выделить всё

$lines="";
open(FILE, $file_name);

foreach $line (<FILE>){
    $lines .= $line;
}
close(FILE);

Может есть более элегантное решение??

[v04bvs]

$a = join('', <FILE>);

[Sceptik]

$a = join('', <FILE>);

Большое спасибо) Помогло.