Oh yeah, other than:

   for ($tmp = 0 ; $tmp < 8 ; $tmp++) {
      printf ("\tByte %08b bit $tmp => %d\n\n", 
          ord $uh[0], &isbitset((ord $uh[0]), $tmp));
   }
[download]