my $int = 123;
say unpack "B*", pack "n", $int;