how to generate initial password

[Beast <beast@setuid.com>]

Hello,

I'm import users from some other system (not *nix) so i need to
generate initial user password (which is same as username).
I'm using this perl script to generate the passowrd, but it did't works
(user can not login due to invalid credentials).

$my_passwd = crypt($username, $salt);

print "userPassword: {crypt}$username\n";

any clue?
Tks.


--beast