The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

int a,b,e[10];

g() {}

int f(char c) {
char d;
 c = 'X';
 e[d] = 'A'+c;
 { 
   int d;
   d = a + b;
 }
 a = b * 2;
 return c;
}