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

[+ system ('echo blabla') ; +]

Ok.