C:> perl -TE "say $^V; say qq/Taint mode: ${^TAINT}/; say qx/date/;"
v5.38.0
Taint mode: 1
Thu Oct 26 09:43:51 Pacific Daylight Time 2023



C:> perl -TE "say $^V; say qq/Taint mode: ${^TAINT}/; say system(qq/date/);"
v5.38.0
Taint mode: 1
Insecure $ENV{PATH} while running with -T switch at -e line 1.