foreach $obj (in $ou){
 ...
 print "$obj->{givenName}\n" ; 
 ...
}