package Test;
use warnings;
use strict;
sub bintodec {
	unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}

print "\nW: " . bintodec($^W);
print "\nW_BITS: " . bintodec(${^WARNING_BITS});
print "\nH: " . bintodec(${^H});