Select Code to Download

sub register_plugin {
    push @callbacks, shift;
}

register_plugin("foo");

package foo;
...

sub hello { print "Hello!\n"; }
1;

foreach $callback (@callbacks) {
  $bar = $callback->new();
  $bar->hello();
}