The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
int a,b,e[10][20];

g(int x, char y) {}
h(int x, char y) {}

int f(char c) {
char d;
 c = 'X';
 g(b, 'A');
 if (c > 0) { 
   int d;
   d = a + b;
 }
 c = d * 2;
 return c;
}