C:\dev\LOOSE>cat s
eval "
print 1;
INIT { print 2 }
END { print 3 }
BEGIN { print 4 }
CHECK { print 5 }
 ";
print "out of eval $@";
C:\dev\LOOSE>perl -Wl s
Too late to run INIT block at (eval 1) line 3.
4
Too late to run CHECK block at (eval 1) line 6.
1
out of eval
3
[download]