use strict;
use warnings;
use Net::LDAP::LDIF;
use Net::LDAP;

my @entryvalues = qw( testuser testcn testsn );

my $entry = Net::LDAP::Entry->new();

$entry->dn("cn=".$entryvalues[1].",ou=test,dc=test,dc=com");
$entry->add(    "uid"   =>      $entryvalues[0],
                "cn"    =>      $entryvalues[1],
                "sn"    =>      $entry[2],
                "objectclass"=> "inetorgperson" );

my $ldif = Net::LDAP::LDIF->new("file.ldif","w");

$ldif->write($entry);