my $input = <>;

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