Select Code to Download

my $count = 0;    
while (my($key, $value) = each(%ip_discover_count) and $count == 0)
...
        open (SEED,">$dir/$seedFileName");

    while ((my $key, my $value) = each(%ip_discover_count))

if ( keys %ip_discover_count )
{
...
    close $SEED;
}