diff --git a/MNU.pm b/MNU.pm
new file mode 100644
index 0000000..3a0b1b9
--- /dev/null
+++ b/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;
diff --git a/drv.pl b/drv.pl
new file mode 100644
index 0000000..66c0644
--- /dev/null
+++ b/drv.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use lib "./";
+use MNU;
+
+while(MNU->loop()){
+    
+}
+