Convert password to LDIF password

#!/usr/bin/perl open(PWD, "/etc/passwd") || die "Can't open input file!"; open(LDIF, ">/home/staff/bsung/passwd.ldif") || die "Can't open output file"; while () { ($userid, $pwd, $uid, $gid, $gecos, $homedir, $shell) = split($_, ":"); print LDIF "dn: uid=$userid, ou=People, o=domain.org\n"; print LDIF "objectclass: top\n"; print LDIF "objectclass: account\n"; print LDIF "objectclass: posixaccount\n"; print LDIF "uid: $userid\n"; print LDIF "userPassword: {crypt}$pwd\n"; print LDIF "uidNumber: $uid\n"; print LDIF "gidNumber: $gid\n"; print LDIF "gecos: $gecos\n"; print LDIF "homeDirectory: $homedir\n"; # Blank line needed between records, so two newlines on the last one... print LDIF "loginShell: $shell\n\n"; } close (LDIF); close (PWD);