use Net::LDAP;
use Net::LDAP::Entry;
my $ldap = Net::LDAP->new('localhost',debug=>8);

my $bind_msg = $ldap->bind( dn => 'cn=Manager, dc=osprey,dc=net',
                            password => 'secret' );
if ( my $bind_code = $bind_msg->code ) {
   die "Cannot bind:", $bind_msg->error,
       " (Code: $bind_code)";
}


 foreach  my $username (sort keys %petra) {

 my $dn = "uid=${username}_osprey_net, ou=users, ispmanDomain=osprey.net, dc=osprey,dc=net";
    my $ref = $petra{$username};
     $result = $ldap->add( dn=> $dn,attr => [@$ref]               
                 
                );
      
$result->code && warn "$dn" ."failed to add entry: ", $result->error ;

}