Select Code to Download

   open FOO,$path;
   print <FOO>

   {
       local $/;
...
       close FOO;
   }
   print $text;

   print while (<FOO>);