";
      return;
   }
   print "$f is ".(is_executable( $f )?"":"not ")."executable
";
}
?>