open (CFGFILE, "ship.cfg") || die $!;
    while (my @TMP=<CFGFILE>) {
        next if ( /#/ );
        # Lets untaint the data after making sure it only matches
        # word characters... For more info read perldoc perlsec.
        foreach $_(@TMP) {
            if ($_ =~ /^([\w.]+)$/) {
                $_ = $1; 
                push (@hosts, $1);
            } else {
                next;
            }
        }
    }