use Digest::MD5 qw(md5_base64);
$digest = md5_base64($challenge.$password);