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

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