$heado = new CGI;
$headt=$heado->param('head');
open (HEAD,">$dataDir/currentHeader.txt");
flock (HEAD, 2) or die "cannot lock file exclusively: $!";
print HEAD $headt;
close(HEAD);