open (ORGDB,"<$database");
@ODB=<ORGDB>;
close (ORGDB);

open (DATABASE,">$database");
@DB=<DATABASE>;
	foreach $rec (@ODB){
		chomp($rec);
		($agent_name,$agent_phone,$agent_cell,$agent_email)=split(/\|/,$rec);
		if ($agent_name eq $input{'nagent_name'} && $agent_phone eq $input{'nagent_phone'} ){
		print DATABASE "$input{'agent_name'}|$input{'agent_phone'}|$input{'agent_cell'}|$input{'agent_email'}|\n";
		}else{
		print DATABASE "$agent_name|$agent_phone|$agent_cell|$agent_email|\n";
		}
	}
close (DATABASE);