This is a test if tainting works with Embperl

The following code should be trapped by the perl interpreter
when running with -T option or PaintTaintCheck on

Ok.