#!/usr/bin/perl -w
use strict;

my $Base = 'mybase';
use constant BASE => $Base;
print "BASE: ", BASE, "\n";