Mainmenu

#!/usr/bin/perl -w

sub mainMenu {
        do {
                print "1. Line 1\n";
                print "2. Line 2\n";
                print "Q. Quit\n";
                $retval = chomp(<>);
                switch($retval) {
                        case '1': doSubMenu($retval); break;
                        case '2': doSubMenu($retval); break;
                }
        } while($retval !~ /q/i);
}

sub doSubMenu {
        do {
                print "D. Delete\n";
                print "A. Add\n";
                print "B. Back\n";
                $retval = chomp(<>);
                switch($retval) {
                        case 'D':
                        case 'd': print "Deleted!\n"; break;
                        case 'A':
                        case 'a': print "Added!\n"; break;
                }
        } while($retval !~ /q/i);
}

mainMenu();