$ perl -TE 'say $^V; say qq/Taint mode: ${^TAINT}/; say qx/date/'
v5.34.0
Taint mode: 1
Insecure $ENV{PATH} while running with -T switch at -e line 1.
$

##</code><code>##

$ perl -E 'say $^V; say qq/Taint mode: ${^TAINT}/; system q/date/'
v5.34.0
Taint mode: 0
Thu 26 Oct 17:07:03 BST 2023
$ perl -TE 'say $^V; say qq/Taint mode: ${^TAINT}/; system q/date/'
v5.34.0
Taint mode: 1
Insecure $ENV{PATH} while running with -T switch at -e line 1.
$