Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $Base = 'mybase';
use constant BASE => $Base;
print "BASE: ", BASE, "\n";

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