Help for this page
open (FILE,"<$footer"); if ($lock){ flock(DATA, $lock)} ... foreach $footerline(@footerfile) { print "$footerline"; }