Select Code to Download

my $dbh = DBI->connect(
   qw(DBI:Oracle: user pass),
...
});
 
$sth->execute($employee{$_},.,....) for keys %employee;

my @field = qw(
   dn cn surname given_name initials
...
   . join(',', map '?', @field) 
   . ')'
;