$ perl -le'print "Hello, World!";'
Hello, World!

$ perl -le'eval q{print "Hello, World!";};'
Hello, World!

##</code><code>##

$ perl -le'print "3$ARGV[0]4";' +
3+4

$ perl -le'print eval "3$ARGV[0]4"' +
7

$ perl -le'print eval "3$ARGV[0]4"' '*'
12

##</code><code>##

$ perl -le'print $ARGV[0]' '`rm -i *`'
`rm -i *`

$ perl -le'print eval $ARGV[0]' '`rm -i *`'
rm: remove regular file `demo.pl'? ^C