Help for this page

Select Code to Download

Select or download this

...
my $choose = <STDIN>;
$choose = <STDIN> until defined $choose;    # <-- Add this line
chomp $choose;
...