sub dec2bin { return sprintf "%b", $_[0]; }