eval {print FILE <<UNTIL_I_SAY_STOP;
blah, blah, blah
UNTIL_I_SAY_STOP
};
$@ && die "$@";