# FILE is already open ...
{
   local $/ = undef;
   $slurp = <FILE>;
}