A while ago I wrote a plugin factory where it returns a new object based on a name passed. Here is the core of the routine:

$module =~ s/\.(pm|PM)$//;
    my $mainmodule = PLUGIN_BASE . $module . ".pm";
    require $mainmodule; 
    import $mainmodule;    

    return $module->new();
[download]

Where $module was passed in and PLUGIN_BASE is just the dir where I keep the modules.

I then did this in the main program

eval{
    my $obj = $facory->get_instance('thingy');
        $obj->run();
    $obj->closedown();
};
if($@)
{
    print $@;
}
[download]

On a different note, if anyone spots something wrong with this then please do let me know. This is something that I got working and then left well alone ;)

HTH

SP