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

my $table = create_dptable TestPkg;
$table->{$op}->() if exists $table->{$op};