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

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

##</code><code>##

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

my $BASE = 'mybase';
print "BASE: $BASE\n";