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

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