sub tobase { my $radix = int($_[0]); (my $num = int($_[1])) =~ y/-/_/; chomp(my $str = `dc -e${radix}o${num}p`); $str } 
print tobase(13, 54), "\n"; # outputs 42