sub mmenu{
print "\nDo you wish to go back to the MAIN menu? [y/n] y\b";
    $ans = <STDIN>;
	chomp($ans);
    if (($ans eq "y") || ($ans eq ""))
       { goto mainmenu; }
    else  
       { exit 0; }
}