$ perl -le " print 111, `perl -e print(666)` "
111666

$ perl -le " print 111, `perl -e warn(666)` "
666 at -e line 1.
111