use Digest::MD5;
use Crypt::PasswdMD5;

print "hello\n";

my $digest = Digest::MD5::md5("hello");
my $passwd = unix_md5_crypt("hello");
if ($digest eq $passwd) {
	print "same!\n";
}
else {
	print "digest: $digest\n"
		. "  unix: $passwd\n";
}