#!/usr/bin/perl
# file: example.pl

use warnings;
use strict;

use lib q{.}; # because constant.pm above is in the same dir...
use constant { VALUE => 1_000_000 }; # this overrides VALUE
use A;
A->func();