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 me
+ans
    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 in
+cluded
    unseen whitespace before or after your closing tag. A good program
+mer'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.
[download]