Select Code to Download

# file: constant.pm
package constant;
...
}

1;

# file: A.pm
package A;
...
}

1;

#!/usr/bin/perl
# file: example.pl
...
use constant { VALUE => 1_000_000 }; # this overrides VALUE
use A;
A->func();