$ perl cpp.pl
The value of FOO is "FOO"
$ perl -P cpp.pl
The value of "bar"  is "FOO"
$