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

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

##</code><code>##

# perl test.pl    
                                                                          Use of uninitialized value in print at test.pl line 6.
BASE: