Select Code to Download

use 5.10.0;
use Math::Base;
...

$xyz = Math::Base->new(64, 'XYZabc', 1);
say $xyz->num;                 # 36013230438

package Math::Base;
use strict; use warnings;
...
}
1;
__END__

package Math::Base;
use strict; use warnings;
...
}
1;
__END__