open( FIND, '-|', 'find', $path, @args ); while () { .... }