# this:
BEGIN { use vars '$Base'; $Base = 'mybase'; }
use constant BASE => $Base;

# or this:
my $Base = 'mybase';
sub BASE () { $Base }