#!perl
$binaddr = '100010';
$hexaddr = sprintf("%x", oct("0b$binaddr"));
print $hexaddr;