open (FILE,"<$footer");
if ($lock){ flock(DATA, $lock)}
@footerfile = <FILE>;
close(FILE);
foreach $footerline(@footerfile) {
print "$footerline";
}