$ perl -wle 'use constant OUT => "foo";print OUT'
foo