sub sparaKunddata {
open (KOF, ">$konfil") or die "Kan inte \xF6ppna filen $konfil. $!";
flock (KOF, 2) or die "Kan inte l\xE5sa filen $konfil. $!";
$qry-> save (*KOF) or die "Kan inte spara filen $konfil. $!"; 
close KOF;}