#!/usr/bin/perl -wl

    use Config;

    print $Config{intsize};


##</code><code>##


    use POSIX;

    print POSIX::INT_MAX; 
    print POSIX::INT_MIN; 
    print POSIX::UINT_MAX; 


##</code><code>##

    print 0.5 * (-1 + unpack "I", pack "I", -1);
    print 0.5 * (-1 - unpack "I", pack "I", -1);
    print             unpack "I", pack "I", -1 ;