my @vars;
my $action = 'doit'; my $package = 'myperl::package';
eval "require $package";
&error( "No such package: $package ? ($! $@)" );
my $act = $package->new( $action ) or &error( "No proper action taken" );
&$act( @vars ) or &error( "Failure to act" );