Select Code to Download

use strict;
use warnings;
...
  }
}
print "Sorry, \"$Search\" not found in diagnosis list\n" unless $found
+_one;