($n=unpack("B32", pack("N", 2100)))=~s/\d*(\d{8})/$1/;
print $n."\n";