Help for this page

Select Code to Download

Select or download this

sub menu {
        foreach my $keys (keys(%hash)) {
                my $num = 1;
...
                &{$sub}();
        }
}