$ perl -wle 'eval "
print 1;
INIT { print 2 }
END { print 3 }
BEGIN { print 4 }
CHECK { print 5 }

"'
Too late to run INIT block at (eval 1) line 3.
4
Too late to run CHECK block at (eval 1) line 6.
1
3