my $start = $ARGV[0];

while (1){
  print "Please Enter the Start-Level (0-7,?)[0]: ";
  chomp($start = <>);

  # Check for non-numeric characters
  if ($start =~ /\D/){
    print "\nPlease enter a number (0-7) or ? for help\n";
    next;
  }

  last if 0 <= $start and $start <= 7;

  # Check for a help request
  if ($start eq '?') {
    print " **** internally coded help information **** \n";
    next;
  }

  print "\nPlease enter a number between Zero and Seven, inclusive\n";
}

print $start;