#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Math::Base::Convert;

my $converter = 'Math::Base::Convert'->new(10, ['A' .. 'Z']);
say $converter->cnv(1000);