Select Code to Download

    #!/usr/bin/perl -wl
...

    print $Config{intsize};

    use POSIX;
...
    print POSIX::INT_MIN; 
    print POSIX::UINT_MAX;

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