#! /usr/bin/perl -Tw use strict; use CGI qw(:standard); # for parsing the input from the HTML my @linesHead; ##### 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); #### reads data from file open(FILE,"; close(FILE); ### displays code in textarea print "content-type: text/html\n\n"; print ""; print "