#!/usr/bin/perl -Pw
use strict;

#define CHOICE 1

print "Hey look! I'm",

#ifndef CHOICE
' not',
#endif

" using the C preprocessor.\n";

# Here is an example of #include.

my $passwd = <<'-PASSWD-';

#include "/etc/passwd"

-PASSWD-

print "Here is /etc/passwd: $passwd\n";