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

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