";
      return;
   }
   print "$f is ".(is_readable( $f )?"":"not ")."readable
";
}
?>