Select Code to Download

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

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

use CGI qw(:all);
my $op = param('operation');
...
    TestPkg->$dispatch('Hello!')
        if defined *{"TestPkg::$dispatch"}{CODE};
}

my $input = <>;

my $table = create_dptable TestPkg;
$table->{$_}->($input) foreach (keys $table);

my $input = <>;

...
                 keys %{*{'TestPkg::'}}
        ); 
}