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;}


##</code><code>##

print $qry->header(-type => "text/html; charset=iso-8859-1;", 
                   -cookie => $kaka);