Select Code to Download

use Digest::MD5 qw[ md5 ];
sub md5_base32{ 
...
print md5_base32( 'fred' );

XSCAZ54XMU5W0OVYUWYRGZU0RF

sub md5_base32_2{ 
    join'', ('A'..'Z', 0..5 )[ 
...
           md5 $_[ 0 ] 
    ] 
}