use Crypt::Password; print password("abc", "bo", "md5") . "\n";