>perl -le'BEGIN{$BASE="are belong to us"}
          use constant BASE => $BASE; 
          print "all your base ", BASE'
all your base are belong to us
>

##</code><code>##

> perl -le'BEGIN{$BASE="are belong to us"}
         use constant BASE => $BASE;
         print "all your base ", BASE'
all your base
>
# but this does
>perl -le'use constant BASE=>"are belong to us"; 
          print "all your base ", BASE'
all your base are belong to us
>