The following code should be trapped by the perl interpreter when running with -T option or PaintTaintCheck on
[+ system ('ls') ; +]
Ok.