Hi, the following seems to work here:

perl -e '$n=3; print substr( unpack("B*", pack("N",$_)), -$n), "\n" fo
+r (0..2**$n-1)'
[download]

HTH as a starting point.