perl -le'my $BASE="are belong to us"; 
         sub BASE () { $BASE }; 
         $BASE="fred"; 
         print "all your base ", BASE'
all your base fred