open(FILE, "$cgipath/data.file") || &error("Error reading data.file");
@filedata = <FILE>;
close (FILE);
foreach $line(@filedata) {
@fields = split(/|/,$line);
if ($fields[12] == '123456789') {
$line = "";
open (FILE,">$cgipath/data.file") || &error("Error writing to data.file");
if ($flock) { flock FILE, 2 }
print FILE @filedata;
close (FILE);
}
}