### displays code in textarea
print "<center><textarea name=head rows=6 cols=60 wrap=soft>\n";
print @linesHead;
print "</textarea></center>\n"; 

### saves data to file
open (FILE,">$dataDir/currentHeader.txt");
flock (FILE, 2) or die "cannot lock file exclusively: $!";
print FILE $FORM{'head'};
close(FILE);

### reads data from file
open(FILE,"< $dataDir/currentHeader.txt");
@linesHead = <FILE>;
close(FILE);