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; } }
In reply to Re: cls and perl
by jungl3thug
in thread cls and perl
by jungl3thug
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |