use Digest::MD5 qw(md5 md5_hex md5_base64);

print "[" . md5_base64( md5_hex( md5( "[" . 'test' ) ) ) . "]\n";
print "[" . md5_base64( "[" . 'test' ) . "]\n";