use Crypt::PasswdMD5;

sub my_md5_crypt {
my $salt;

for(0..7) {
	$salt .= ('.', '/', 0..9, 'A'..'Z','a'..'z')[rand 64];
}
my $pass = shift; #clear text password

return unix_md5_crypt($pass, '$1$' . $salt . '$');
}

##</code><code>##

USERNAME:ENCRYPTEDPASSWORD
USERNAME2:ENCRYPTEDPASSWORD2
...

##</code><code>##


cat THATFILE | /usr/sbin/chpasswd -e


##</code><code>##

USERNAME1:CLEARTEXTPASS_1
...