Select Code to Download

open (SERVERLST, '<', 'svr_daily.csv')
    or die "Can't read from server daily CSV: $!";

...
    my $ls_eng = shift;
    system qw(wdmlseng -e), $ls_eng;
}