$ perl -e 'print("hello\n"), print "bye\n" if 1'
hello
bye