use Math::BaseCnv;

print cnv( 4345317546, 10, 64 );
4304Yg

print cnv( '4304Yg', 64, 10 );
4345317546