Select Code to Download

 
    $ perl -wl -e 'print "This is line 1";' \
               -e 'print "This is line 2";' \
               -e 'print "This is line 3";' \
               -e 'print "This is line 4";' \
               -e 'print "This is line 5";'

    while(<>) { print ; }

      
    $ perl -MO=Deparse -pe '1'
    LINE: while (defined($_ = <ARGV>)) {
...
        print $_;
    }
    -e syntax OK

    split;

    perl -01512 -e

 
    $ perl -01512 -e 1
    Unrecognized switch: -2  (-h will show valid options).
    $