package Foo;
use Module::MagicInit;

register_init( \&my_init, 'Hello', 'World' );

sub my_init {
    my( $greeting, $name )= @_;
    print "$greeting, $name\n";
};

1;