Select Code to Download

#!/usr/bin/perl -w

...

my $struct = $mesg->as_struct;
print Dumper( $struct );

$VAR1 = {
  'uid=oracle8,ou=people,dc=fresenius,dc=de' => {
...
    ]
  }
};