Have a look at perldoc perlsub.
You're not passing any parameter to your subroutine, try something like:

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

Hope it helps,
deibyz