Help for this page
sub menu { my ($title, @option) = @{ shift }; my (@name, @action); ... } } }
#!/usr/bin/perl -w use strict; ... ]; menu($mainmenu);
menu([ 'Main menu', 'Foo' => \&foo, ... ], 'Exit' => undef, ]);
www.com | www.net | www.org
No recent polls found