Help for this page
DB<20> print join " ", reverse split /(..)/ , sprintf "%06x\n", 2*10* +*$_ for 0..5 ... 20 4e 00 40 0d 03 DB<21>
DB<29> say 1+int (log (2*10**$_)/log 256) for 0..5 1 ... 2 2 3