&write($firstline);



foreach $do ( keys %doing) {

  DO DB query for $do where fo $do can be serveral     bodylines;

  &write($bodyline);

}



&write($lastline);



sub write {

  my $line = shift;

  open(FILE,">>$basepath/$filename") or die;

  print FILE $line . "\n";

  close FILE;

}