#!/usr/bin/perl -P
#define FOO bar
print "FOO\n";
print qq(FOO\n);