...
open, etc...
my $File
{
local $/; 
$File=<FILE>;
}
...