perl -T -e 'print "(${^TAINT})\n";'