print unpack("B*", pack("N", $attr)), "\n";
# or
printf "%032b\n", $attr;