if ($type eq 'foo') {
     $parser = "Parser::Foo";
  } elsif ($type eq 'bar') {
     $parser = "Parser::Bar";
  } else {
     die "What the heck is $type?";
  }

  eval "use $parser" or die "Can't load $parser: $@";