use Digest::MD5 'md5_hex';
use Math::BigInt;

my $plain  = "abcd1234";
my $digest = Math::BigInt::->from_hex(md5_hex $plain);
print $digest, "\n";