use Math::Base;

my $one = Math::Base->new( 13, 6 );
my $two = Math::Base->new( 13, 9 );

print "$one times $two equals ", $one*$two, " base 13.\n";