Select Code to Download

$binary = chr(0) x 8;
vec($binary, $_, 1) = 1 for (SOME, CONSTANTS);
$binary = reverse $binary;