open (MYFILE, $RD);
 while (<MYFILE>)
   {
     print $_
   }
close (MYFILE);