print ".Main menu.\n\n";
print "1. Whatever1\n";
print "2. Whatever2\n";
print "3. Whatever3\n";
print "4. Whatever4\n";
print "5. Whatever5\n";
print "6. Whatever6\n\n";
print "Please choose an option or (q) quit\n";

while (1)
{
$opt = <>;
chomp($opt);
if ($opt eq 'q')
{
print "Bye now";
exit;
}
elsif ($opt eq '1')
{
print "do whatever 1\n";
print "Thank You, what do you want to do now, choose option(1...6) or quit(q)\n";
}
elsif ($opt eq '2')
{
print "do whatever 2\n";
print "Thank You, what do you want to do now, choose option(1...6) or quit(q)\n";
}
 
#And on like this until all options are accounted for the to finish....
else
{
print "You must either enter an option number(1...6) or (q) to quit\n";
print "Please enter a value:\n";
}
}