if (grep $class_name eq $_, qw(Calvin::Hobbes Peter::Gabriel Dog::Day::Afternoon)) {
  # must validate the name, or security holes will run rampant
  eval "require $class_name"; die $@ if $@;
  $object = $class_name->new;
}