c:\@Work\Perl\monks>perl -wMstrict -le
"my $binaddr = 100010;
 print qq{'$binaddr'};
 ;;
 my $hexaddr = sprintf '%x', oct qq{0b$binaddr};
 print qq{'$hexaddr'};
"
'100010'
'22'