in reply to subroutines and arguments

why not try: ls_engine($svr); instead?

In Section Seekers of Perl Wisdom