sub get_a_parser{
my $type = shift;
my $parser = "EP::Parser::$type";
eval "require $parser" or die "can't find a parser. Are you sure it's installed?";
return new $parser;
}