Select Code to Download

my $count = 0;    
while (my($key, $value) = each(%ip_discover_count) and $count == 0)
...
    }
    close (SEED);
}

my $count = 0;    
my $seedFileName = "$CC\_discover.txt";
...
    }
    close (SEED);
}