my $dbh= DBI->connect("DBI:Oracle:", "scott", "tiger") or  die $DBI::errstr;
my $sth1= $dbh->prepare(q{truncate table directory_data}) or die $DBI::errstr;
$sth1->execute or die $sth1->errstr;

my $sth = $dbh->prepare(q{
	INSERT INTO directory_data(dn, cn, surname, given_name, initials, generational_qualifier, building,
	room_number, mailstop, telephone, fax, mail, tfs_id, uid) 
	VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?)}) or die $dbh->errstr;

foreach $emp (keys %employee){ 
$sth->execute($employee{$emp},.,....)