Select Code to Download

$ perl -Tle " package SNOT; print(fileno(shift @ARGV)) ; use Data::Dum
+per(); END{ warn Data::Dumper::Dumper(\%SNOT::);}" -
Insecure dependency in require while running with -T switch at -e line
+ 1.
...
          'BEGIN' => *SNOT::BEGIN,
          'END' => *SNOT::END
        };

 731     if (!io || !(fp = IoIFP(io))) {
 732         /* Can't do this because people seem to do things like
 733            defined(fileno($foo)) to check whether $foo is a valid
+ fh.
...
 736             */
 737         RETPUSHUNDEF;
 738     }