#define shift main
#define or (
#define eval )
shift or eval {printf("Hello, World\n");}

##</code><code>##

neil@gimp:~$ gcc perlc.c; ./a.out
Hello, World
neil@gimp:~$ perl perlc.c
Hello, World