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

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