sub Foo::INIT { print "Hello world\n" } &Foo::INIT;