The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
b = 5;
a = b+2;
a = 2*(a+b)*(2-4/2);
print a;
d = (a = a+1)*4-b;
c = a*b+d;
print c;
print d