eval "require $class"; if ( $@ ) { die "Can't load $class: $@"; } my $obj = $class->new;