use Net::LDAP;

$id='1234';
$ldap = Net::LDAP->new($host,$port) or die "$@";
$ldap->bind;
$mesg = $ldap->search (base => $base,
			filter => "employee_number=$id",
			attrs => [firstname,lastname,employee_number,department,city]);

my $max = $mesg->count;

# put into a local hash for later use...
for($i=0;$i<$max;$i++){
  my $entry = $mesg->entry($i);
  foreach my $attr($entry->attributes){
    my $printstring =  join("\| ",$attr, $entry->get($attr));
    my ($attrkey,$attrvalue) = split(/\|/,$printstring);
    $userinfo{$attrkey}=$attrvalue;
  }
}

# test the hash...
foreach $key(keys %userinfo){
  print "$key\t $userinfo{$key}\n";
}