my $foo = 10;
$foo = unpack "B*", pack "L", $foo;
print "$foo\n";
$foo = unpack "L", pack "B*", $foo;
print "$foo\n";