A further comment along the lines of matija's suggestion. You have a small finite set of valid EP::Parser:: $types. You can validate the user input by registering all the valid parsers to a hash keyed by the .pm files' names. If the client-supplied $type is a key, the input is validated and may be untainted.

use constant PARSER => {
    Foo => undef,
    Bar => undef,
    Baz => undef
};
# . . .
$type = ( exists PARSER->{$type} and $type =~ /^(.*)$/ )
        ? $1
        : '';
[download]