my ($binary) = sprintf ("%08b", $decimal);