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