Help for this page

Select Code to Download


  1. or download this
                    my $subname = lc($mmx) . '_' . lc($sah) . '_' . lc($fu
    +nction);
                    *$AUTOLOAD = sub {
    ...
                        goto &$subname;  # or &{*$subname{CODE}} ??
                    };
                    goto &$AUTOLOAD;