sub Foo::INIT { print "Hello world\n" } &Foo::INIT; #### *Foo::INIT = sub { print "Hello world\n" }; &Foo::INIT; __END__ Hello world