created MNU.pm and drv.pl

MNU.pm

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+package MNU;
+
+sub prompt(){
+    printf("> ");
+    my $in;
+    $in = <STDIN>;
+    chomp $in;
+    
+    return $in;
+}
+
+sub loop(){
+    my $in = prompt();
+
+    return 0 unless $in;
+    return 0 if $in eq "quit";
+    return 1;
+}
+
+return 1;

drv.pl

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use lib "./";
+use MNU;
+
+while(MNU->loop()){
+    
+}
+