open (DAT2 , "> datei.tmp") ;
flock(DAT2,2) ;
open (DAT1 , "< datei.org") ; 
if ( id==getid)
change && print DAT2
else
print DAT2
close(DAT1) ;
close(DAT2) ;

rename(datei.org,datei.bak) ;
rename(datei.tmp,datei.org) ;