Select Code to Download

    open (CFGFILE, "ship.cfg") || die $!;
    while (my @TMP=<CFGFILE>) {
...
            }
        }
    }

    open CFGFILE, "< ship.cfg" or die "read ship.cfg: $!";
    @hosts =
...
        <CFGFILE>;
    }
    close CFGFILE;

    open CFGFILE, "< ship.cfg" or die "read ship.cfg: $!";
    while (<CFGFILE>) {
...
        push @hosts, $1;
    }
    close CFGFILE;