my $count = 0;	
my $seedFileName = "$CC\_discover.txt";
open (SEED,">$dir/$seedFileName");
while (my($key, $value) = each(%ip_discover_count) and $count == 0)
{
	print SEED "Key: $key\tValue: $value\n";
	$count++;
}
if ($count > 0)
{
	my $seedFileName = "$CC\_discover.txt";
	#open (SEED,">$dir/$seedFileName");
	print SEED "Count:\t$count\n";
	while ((my $key1, my $value1) = each(%ip_discover_count))
	{
		$ip = &trim($key1);
		my $snmp_read = &trim($ip_discover_snmp{$key1});
		print SEED "xx$ip\xx\n";
	}
	close (SEED);
}