> perl -t -e"die ${^TAINT}"
1 at -e line 1.

> perl -T -e"die ${^TAINT}"
1 at -e line 1.

> perl -e"die ${^TAINT}"
0 at -e line 1.

>