Select Code to Download

package Options;
use Exporter::Dispatch;
...
sub other_menu {
    ...
}

my $var = ...;
my %dispatch_sub = create_dptable Options;
$dispatch_sub{$var}->($screenpos1, $screenpos2) if exists $dispatch_su
+b{$var};