Select Code to Download

sub menu {
    my ($title, @option) = @{ shift };
    my (@name, @action);
...
        }
    }
}

#!/usr/bin/perl -w
use strict;

...
];

menu($mainmenu);

menu([
    'Main menu',
    'Foo'        => \&foo,
...
    ],
    'Exit'       => undef,
]);