my $plugincode=load_code();
my $dataobj=get_data_object();

$plugincount++;

$pugincode=<<EOC;
{ package PLUGIN::PLUGINS::$pugincount;
use base 'PLUGIN::BASE';
use strict;
use warnings;

$plugincode;

1;}
EOC

my $pluginobj;

if(eval(plugincode))
{
  $pluginobj=eval("PLUGIN::PLUGINS::$pugincount->new($dataobj)")
  if(!$pluginobj)
  {
    # create error
  }
}
else
{
  # copmile error
}
#...

$pluginobj->mach_was();