use strict;
use warnings;
use MyConst;

print $MyConst::const1, "\n"; # prints 1