open(data,"userlist.txt") or die "$@";
     while ($line = <data>)
     {
	                          	 			@details = split(/:/,$line);
	                           				if ($name[0] eq $details[0])
	                           				{
		                           			print "check -----> $details[0] , $details[1] ,$downloadTotal \n";
		                           				open(FH, ">downloadtemp.txt") or die "$@";
		                           				print "check 2 -----> $details";
		                           				print(FH $downloadTotal);
	                           			     	open(FH,">>userlist.txt") or die "$@";
                           						$details[2] = $ details[2] + $downloadTotal;
                          				 		$newline = $details[0].':'.$details[1].':'.$details[2];
                           						print(FH $newline); 
	                           			     }