21 lines
295 B
Perl
21 lines
295 B
Perl
#!/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;
|
|
} |