Perl ファイルをすべて読み込んで出力

$FILE = "c:\\temp\\aaa.txt";
open(FILE,"<$FILE");
@lines=&ltFILE>
close(FILE);
$data = join("", @lines);
print "$data";
=============================================================================