Select Code to Download

my %category = (
    'ClassOne'   => ['ClassOne',   'process'],
    'ClassTwo'   => ['ClassTwo',   'process'],
    'ClassThree' => ['ClassThree', 'process'],
);

eval 'use Category::'.$category{$$methods{'category'}}[0].';'.
     'my $handle = Category::'.$category{$$methods{'category'}}[0].'->
+new();'.
     '$handle->'.$category{$$methods{'category'}}[1].'($key, $params, 
+$testCase);';
print $@ if ($@);