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

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