Select Code to Download

{ my $count = 0;
  do
...
  pop @in;  #  Remove 'quit signal'
}
chomp @in;

while ( 'reading...' )
{ print "\nPlease enter a number: ";
...
  last;
}
chomp @in;