#!/usr/bin/perl -w
use strict;

my $computer;
my @pcs = qw(comp1 comp2 comp3 comp4 comp5);

while ( $computer = prompt4number(@pcs),
        $computer !~/^\s*(Q|quit|exit)\s*$/i)
{
      next if $computer =~ /^\s$/; #simple re-prompt on blank lines
      
      if( $computer !~ /^\s*\d\s*$/ or $computer>@pcs or
          $computer == 0)
      {
         print "Illegal Entry -- try again!\n\n";
         next;
      }
      
      print "OK - cold starting $pcs[$computer-1]\n";
      exit(0); 
}

print "Program would just exit ...\n";

sub prompt4number
{
   my @pc = @_;
   print "\nWhich computer would you like to cold start?\n";
   
   my $menu =1;
   print $menu++, " - $_\n" foreach @pc; 
   print "enter Q|q|quit|exit to stop this program!\n";
   return <STDIN>;
}   
   
__END__