perl -c -e 'BEGIN { print "yay\n"; }; print "boo\n"'