package Foo; sub BEGIN { print "I am Foo, called in BEGIN!\n" }