my $value=undef;
open(FILE,'<',$filename) or die "$filename: $!";
while(<FILE>) {
  if(/\bdn:\s*ou=(\w+)/) {
    $value=$1;
    last;
  }
}