##### saves data to file
open (FILE,">/home/league/currentHeader.txt") or die "cannot open file
+: $!";
flock (FILE, 2) or die "cannot lock file exclusively: $!";
print FILE param('head');
close(FILE);

##</code><code>##

$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);