Help for this page
> perl -e 'warn "bla\n"' bla ... > perl -e 'eval q{warn "bla"}' bla at (eval 1) line 1.