Select Code to Download

package TestPkg;
use Dispatch;
...
package main;
my $table = create_dptable TestPkg; # or TestPkg::create_dptable();
$table->{sub_c}->("Hello!");

package Dispatch;

...
}

1;