printf "0x%x\n",                #print it as hex
    unpack("N",                 #unpack it as 32bit int ,big endian
        pack("B32",             #pack it as MSB 32bit integer
            sprintf("%032s",    #32 length bit string
                join('',
                    @rand1))));

##</code><code>##

use Config;
print "int size=".$Config{intsize}."\n";
print "short size=".$Config{shortsize}."\n";
print "long size=".$Config{longsize}."\n";
print "long long size=".$Config{longlongsize}."\n";