#define FOO "bar"
print qq(The value of FOO is "), FOO, qq("\n);

##</code><code>##

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

##</code><code>##

> perl -P cpp.pl
'cl' is not recognized as an internal or external command,
operable program or batch file.
> vcvars32
Setting environment for using Microsoft Visual C++ tools.
> perl -P cpp.pl
Command line error D2003 : missing source filename
>

##</code><code>##

$ perl -P cpp.pl
ngcc: -: No such file or directory
ngcc: No input files specified.
$