Select Code to Download

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

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