{
   undef local $/;
   open (FH, $filename);
   while(<FH>) {
      blah
   }
}