Re^2: Using constants. What am I doing wrong?

The second one does not make a constant

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

Cheers,
R.

Pereant, qui ante nos nostra dixerunt!

Comment on Re^2: Using constants. What am I doing wrong? Download Code