open FOO,$path;
   print <FOO>

##</code><code>##

   {
       local $/;
       open FOO,$path;
       $text = readline FOO;
       close FOO;
   }
   print $text;

##</code><code>##

   print while (<FOO>);