die "Sql Failed" . $DB->Error( ) . "\n" if ($DB->Sql
     ("SELECT Host_ID FROM Hosts WHERE Host_Name='$host'"));
		my $rec_indx;
		while ($DB->FetchRow())
		{
			my %data = $DB->DataHash();
			$rec_indx =  $data{"Host_ID"};
			print qq(index key is $rec_indx\n);
		}