open (FH,”/tmp/file);

    for (;;) {
       while (<FH>) {
           print “$_\n”;
        }   
       FH->clearerr;
   }