<?
$dosya    = "$dosya_dizin/yazi.txt";
$dosyaac = fopen ($dosya_adi , 'w') or die ("Dosya açılamadı!");
$yazi       = "$verimiz\n";
fwrite ( $dosya , $yazi ) ;
fclose ($dosya);
?>