sub add {
open FH, ">>$file" or die "Cant open config file $!\n";
&lock(*FH);
  print FH "zone \"$formdata{domain}\" in \{\n\ttype slave\;\n\tfile\"$client\/
db.$formdata{domain}\"\;\n\tallow-query \{ any\; \}\; \}\;\n\n";
&unlock(*FH);
close FH;
open FH, "$file" or die "Could not open $file : $!\n";
&lock(*FH);
  $/ = "\;\n\n";
  my @array = <FH>;
  @array = sort @array;
&unlock(*FH);
close FH;
open FH, ">$file";
&lock(*FH);
  print FH @array;
&unlock(*FH);
close FH;
$/ = "\n";
}