for my $svr (<SERVERLST>) {
   chomp $svr;
   ls_engine ($svr);
}