C:\test>231561
'sub syntax_check_INIT { print '*** INIT GOTCHA!!! ***'; }'
        : Passes syntax check
Subroutine syntax_check_INIT redefined at (eval 2) line 1, <DATA> line 2.
'sub syntax_check_INIT { print '*** INIT GOTCHA!!! ***'; }'
        : Passes syntax check
'sub syntax_check_CHECK{ print '*** CHECK GOTCHA!!! ***'; }'
        : Passes syntax check
Subroutine syntax_check_CHECK redefined at (eval 4) line 1, <DATA> line 4.
'sub syntax_check_CHECK{ print '*** CHECK GOTCHA!!! ***'; }'
        : Passes syntax check
'sub syntax_check_BEGIN{ print '*** BEGIN GOTCHA!!! ***'; }'
        : Passes syntax check
Subroutine syntax_check_BEGIN redefined at (eval 6) line 1, <DATA> line 6.
'sub syntax_check_BEGIN{ print '*** BEGIN GOTCHA!!! ***'; }'
        : Passes syntax check
'sub syntax_check_END  { print '*** END GOTCHA!!! ***'; }'
        : Passes syntax check
Subroutine syntax_check_END redefined at (eval 8) line 1, <DATA> line 8.
'sub syntax_check_END  { print '*** END GOTCHA!!! ***'; }'
        : Passes syntax check
'require 'POSIX';'
        : Passes syntax check
'do 'POSIX.pm';'
        : Passes syntax check
'no POSIX qw[ceil floor]; $a=ceil($b); $b=floor($a);'
        : Passes syntax check
'my $a = 1;'
        : Passes syntax check
'my $a = cool;'
        : Fails with
Bareword "cool" not allowed while "strict subs" in use at (eval 13) line 1, <DATA> line 13.

'my $'
        : Fails with
Can't use global $; in "my" at (eval 14) line 2, near "my $
;"
syntax error at (eval 14) line 2, at EOF