use Term::ReadKey;
  ReadMode 4;
  system("wget http://fetchsite.com?q=the-letter-$_")
    while (defined $_ = ReadKey());