use CGI qw(:all);
my $op = param('operation');

{
    no strict 'refs';
    TestPkg->$dispatch('Hello!')
        if defined *{"TestPkg::$dispatch"}{CODE};
}