open( $fh, "-|", "find", "/start/path", "-type", "d" );
while (<$fh>) {
  ...
}