use Math::BaseCnv;

my $your_number = 55;

# cnv( THE-NUMBER, OLD-BASE, NEW-BASE );
my $new_number = cnv( $your_number, 10, 3 );

# $new_number becomes 2001