sub register_plugin {
	push @callbacks, shift;
}

##</code><code>##

register_plugin("foo");

package foo;

sub new { return bless {}; }

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

##</code><code>##

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