if ( -r $file )
   {
      open(FILE, $file);

      # hmmm... is the file open or not?

      my @contents = <FILE>;
      close FILE;
      # process @contents;
   }