use strict;
use Carp;

my $class = shift;
my $method = shift;
my $param1 = shift;
my $param2 = shift;

eval("use $class");
if($@)
  {
    croak("Couldn't find package $class ($@) ");
  }

eval($class->$method($param1, $param2));
if($@)
  {
    croak ("couldn't invoke method #method on $class with params ($@)")
  }