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

[+ do { system ('echo blabla') ;} +]

Ok.