programming-examples/perl/SystemFunction/Using pack and unpack to convert decimal number to binary number back and forth.pl

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