$ perl -Tce 'BEGIN { system <> }'
echo foo
Insecure $ENV{PATH} while running with -T switch at -e line 1, <> line 1.
BEGIN failed--compilation aborted at -e line 1, <> line 1.