# file: A.pm
package A;
use strict;

use constant VALUE => 1;

sub func {
    print "Constant is ", VALUE, "\n";
}

1;