in reply to Special block?

It prints for me 

1st declared BEGIN block
2nd declared BEGIN block
2nd declared CHECK block
1st declared CHECK block
1st declared INIT block
2nd declared INIT block
Now in the main script line 1
Now in the main script line 2
2nd declared END block
1st declared END block

[download]
--Lakshmanan G.

Your Attempt May Fail, But Never Fail To Make An Attempt

In Section Seekers of Perl Wisdom