or download this
use strict;my@c=(15,6,6,6,6,54,28,0);my@o=(51,51,51,51,51,51,30,0);
my@m=(30,51,48,30,3,51,30,0);my@d=(63,12,12,12,12,12,12,0);my@r=(12
...
push@c64,c64(2*${$c64}[$c])}push@c64,"\n"}return@c64}sub c64{my$c=
substr unpack("B32",pack"N",shift),-8;$c=~s/0/ /g;$c=~s/1/C=/g;
return $c}