Slightly better demo, in my opinion:

>perl -e"print(qq{Initial compile phase over\n}); use Spoo"
Spoo BEGIN
Spoo CHECK
Spoo INIT
Initial compile phase over
Spoo END

>perl -e"print(qq{Initial compile phase over\n}); require Spoo"
Initial compile phase over
Spoo BEGIN
Spoo END

>perl -e"print(qq{Initial compile phase over\n}); BEGIN { require Spoo
+ }"
Spoo BEGIN
Spoo CHECK
Spoo INIT
Initial compile phase over
Spoo END
[download]