$binaddr = 100010;
       $hexaddr = sprintf("%x", oct("0b$binaddr"));