Select Code to Download

  do {
      ...
  } while lc($make_account) ne 'y';

  do {
      ...
  } while $make_account !~ /^\s*y/i;