#file1.pl
#!/usr/bin/perl -w
use strict;
use Constants;
print "ONE=", $Constants::ONE, "\n";
print "TWO=", $Constants::TWO, "\n";
print "THREE=", $Constants::THREE, "\n";

#Constants.pm
package Constants;
$Constants::ONE = 1;
$Constants::TWO = 2;
1;