Help for this page
my $bin = sprintf "%b", hex $hex;
sub bin2dec { ... } my $hex = sprintf "%x", bin2dec( $bin )