while ($EDS_DB->FetchRow())
{
		my %data = $EDS_DB->DataHash();
		$srv_name =  $data{"Server_Name"};
		$San = $data{"SAN"};
		$platform = $data{"Platform"};
		print qq(Server Name is $srv_name,$platform,$San\n);	
		
}