#!/bin/perl

use lib '/MoVA/';
use strict;
use menu;

my %main;
$main{'a'}    = ['Punkt 1', '#function1'];
$main{'z'}    = ['Ende',    '#quit'];
$main{'desc'} = 'TEST';

show(\%main);

sub function1 {
    print "HALLO";
    <STDIN>;
    show(\%main);
}
sub quit {
    exit;
}