sub sparaData {
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;
}