I am working on a script that presents a menu and asks the user to select a choice. I don't quite understand why it is not working like I think it should.
What I get is a blank screen, and if I make a choice, the script briefly prints the menu then continues on.
Here is a snippet of my script (it is quite long).
my @pc = qw(comp1 comp2 comp3 comp4 comp5);
# Find out which computer to cold start
print "Which computer would you like to cold start?\n";
print "1 - comp1
2 - comp2
3 - comp3
4 - comp4
5 - comp5\n";
$question = <STDIN>;
} until ($question >= 1) & ($question <= 5);
$computer = $pc[$question];
Any advice is certainly appreciated. Thanks in advance.