Help for this page
use Digest::MD5 qw[ md5 ]; sub md5_base32{ ... print md5_base32( 'fred' ); XSCAZ54XMU5W0OVYUWYRGZU0RF
sub md5_base32_2{ join'', ('A'..'Z', 0..5 )[ ... md5 $_[ 0 ] ] }