sub changename { my $entry = shift; my $newname = shift; $entry->replace(cn => $newname); }