Select Code to Download

$| = 1;
print "Do you wish to update (Y/N)? ";

$| = 1;
my $choice;
do {
...
} until ($choice =~ /^[yn]$/i);

say "You picked `$choice'";