如何使用Perl for Unix身份验证在LDAP服务器上创建用户？

#!/usr/bin/perl

use Net::LDAP;

# LDAP服务器连接参数
my $ldap_host = "ldap.example.com";
my $ldap_port = 389;
my $ldap_dn = "cn=admin,dc=example,dc=com";
my $ldap_password = "password";

# 用户信息
my $username = "newuser";
my $password = "newpassword";
my $uid = "1001";
my $gid = "1001";
my $home_directory = "/home/newuser";
my $shell = "/bin/bash";

# 连接到LDAP服务器
my $ldap = Net::LDAP->new($ldap_host, port => $ldap_port) or die $@;
my $ldap_msg = $ldap->bind($ldap_dn, password => $ldap_password);

# 检查绑定是否成功
$ldap_msg->code && die "LDAP bind error: ", $ldap_msg->error;

# 创建新用户的LDIF条目
my $user_entry = Net::LDAP::Entry->new;
$user_entry->dn("uid=$username,ou=users,dc=example,dc=com");
$user_entry->add(
    'objectclass' => ['inetOrgPerson', 'posixAccount'],
    'uid' => $username,
    'cn' => $username,
    'sn' => $username,
    'uidNumber' => $uid,
    'gidNumber' => $gid,
    'homeDirectory' => $home_directory,
    'loginShell' => $shell,
    'userPassword' => $password
);

# 将用户条目添加到LDAP服务器
$ldap_msg = $ldap->add($user_entry);

# 检查添加是否成功
$ldap_msg->code && die "LDAP add error: ", $ldap_msg->error;

print "用户 $username 创建成功\n";

# 断开与LDAP服务器的连接
$ldap->unbind;