Select Code to Download

while ( ... ) {
    my $cat = $$methods{'category'};
...
    eval "$class->new()->$method(\$key, \$params, \$testCase)";
    die $@ if $@;
}

    eval { $class->new()->$method( $key, $params, $testCase ) };