use diagnostics;
print <<FOOOBAR;



__END__

Can't find string terminator "FOOOBAR" anywhere before EOF at - line 2 (#1)
    (F) Perl strings can stretch over multiple lines.  This message means
    that the closing delimiter was omitted.  Because bracketed quotes count
    nesting levels, the following is missing its final parenthesis:

        print q(The character '(' starts a side comment.);

    If you're getting this error from a here-document, you may have included
    unseen whitespace before or after your closing tag. A good programmer's
    editor will have a way to help you find these characters.

Uncaught exception from user code:
        Can't find string terminator "FOOOBAR" anywhere before EOF at - line 2.