Select Code to Download

my $decimal = 4;
$binary=unpack("B32", pack("N",$decimal));
...
print $newdecimal;

# 32 in the template means the binary number will have 32 places