Select Code to Download

use Digest::MD5 qw(md5_hex);
use Math::Prime::Util ':all';
...
$unique_offering = todigitstring(fromdigits(md5_hex($harvest), 16), 36
+);

$unique_offering = sub {
    require Digest::MD5;
...
           Math::Prime::Util->fromdigits(
           Digest::MD5->md5_hex($harvest), 16), 36);
    };