>c:\progs\perl5100\bin\perl test.pl
1..28
# Perl 5.010000
ok 1 - length hibit 0
ok 2 - length hibit 1
ok 3 - pack hibit ?0
ok 4 - pack hibit ?1
ok 5 - pack hibit 00
ok 6 - pack hibit 01
ok 7 - pack hibit 10
ok 8 - pack hibit 11
ok 9 - print hibit ?0
ok 10 - print hibit ?1
ok 11 - print hibit 00
ok 12 - print hibit 01
ok 13 - print hibit 10
ok 14 - print hibit 11
ok 15 - length long 0
ok 16 - length long 1
ok 17 - pack long ?0
ok 18 - pack long ?1
ok 19 - pack long 00
ok 20 - pack long 01
ok 21 - pack long 10
ok 22 - pack long 11
ok 23 - print long ?0
ok 24 - print long ?1
ok 25 - print long 00
ok 26 - print long 01
ok 27 - print long 10
ok 28 - print long 11