# perl -e 'print "one\n",print "two\n"'
two
one
1

##</code><code>##

# perl -we 'print $a=3,"\n",print $a-5,"\n"'
-2
3
1