init III

Perl arp cache per snmp durchsuchen/new/menu.pl

@@ -0,0 +1,21 @@
+#!/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;
+}