my $Base;
BEGIN { $Base = 'mybase' }
use constant BASE => $Base;