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