$ 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";'

##</code><code>##

    while(<>) { print ; }

##</code><code>##

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

##</code><code>##

    split;

##</code><code>##

    perl -01512 -e

##</code><code>##

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