use warnings;
use strict;
use Encode qw/encode/;
use Digest::MD5 qw/md5/;
use MIME::Base64 qw/encode_base64/;

my $string = "7512";
my $md5b64 = encode_base64( md5( encode( 'UTF-16LE', $string,
	Encode::FB_CROAK|Encode::LEAVE_SRC ) ), "" );
print "Generated String is: MD5:$md5b64\n";

my $expect = "cA5YjDeU2fOJwwnVFPCuAw==";
print $md5b64 eq $expect ? "Matches!\n" : "Doesn't match!\n";

__END__

Generated String is: MD5:cA5YjDeU2fOJwwnVFPCuAw==
Matches!