#! /usr/bin/perl -w

use strict;
use Math::BaseCalc;

my $b36 = Math::BaseCalc->new( digits => [0..9, 'a' .. 'z'] );
my $b64 = Math::BaseCalc->new( digits => [0..9, 'a' .. 'z', 'A' .. 'Z', '-', '_' ] );

my $num;
for $num( @ARGV ) {
    print "$num\n";
    print "\t in base 36 = ", $b36->to_base($num), "\n";
    print "\t in base 64 = ", $b64->to_base($num), "\n\n";
}