programming-examples/perl/SystemFunction/Combine unpack and pack in one statement.pl

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