sub creator_func { my ($class, $arg1, $arg2) = @_; eval "require $class"; if ($@) { print "Load error for class='$class': $@\n"; return; } my $new_obj = $class->new ($arg1, $arg2); return $new_obj; }