here is the relevant section of code:

print "Enter the IQ name to search for?\n";
chomp ($FILE = <STDIN>);

search_main_iq ();

print "Do you want to look for another file? [Y/N] ";
chomp ($CHOICE = <STDIN>);

while ($CHOICE eq [yY]) {
  search_main_iq ();
  print "Do you want to look for another file? [Y/N] ";
  chomp ($CHOICE = <STDIN>);
}