Select Code to Download

package Consts;

use constant PI => 3;    # We're REALLY approximate, here.

"Some true value as the last statement.";

#!/usr/bin/perl -w
use strict;
use Consts;

print "Pi is:", Consts::PI, $\;