Select Code to Download

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

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