Select Code to Download

*EINTR = \4;

package ConstantVars;
use strict;
...
}

1;

use strict;
use warnings;
...
);

print "PI is $PI in version $VERSION\n";

PI is 3.14159 in version 1.01