Select Code to Download

use strict;
use warnings;
...
$reg = \INIT();
push(@addons, $reg);

sub INIT {

...
    print "Hello, $name!";

}

$addons[0]->INIT("Jesus");

package addon1;

...
}

return "addon1";

my $pluginname = do "addon1.pl";
my $plugin = new $pluginname;
...
$plugin->ACE_INIT(\$test);
print $test . "\n";