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