if ( keys %ip_discover_count )
{
	my $seedFileName = "$CC\_discover.txt";
	open my $SEED, '>', "$dir/$seedFileName" or die "Cannot open '$dir/$seedFileName' $!";

	while ( my ( $key, $value ) = each %ip_discover_count )
	{
		$ip = trim( $key );
		my $snmp_read = trim( $ip_discover_snmp{ $key } );
		print $SEED "$ip\t\$snmp_read\n";
	}
	close $SEED;
}