Select Code to Download

sub sparaData {
open (KOF, ">$konfil") or die "Kan inte \xF6ppna filen $konfil";
...
$qry-> save (*KOF) or die "Kan inte spara filen $konfil"; 
close KOF;
}

sub kundNytt {
my @Head = ("Anv. ID", "F\xF6r", "Efter", "Pref", "Bef", "Nytt", "Pr",
+ "F\xF6r", "Kap");
...
print $qry->submit('spara', 'Spara');
print $qry->end_form;
}