open(DATA, ">/host/n/b/p/p/o/r/nbpdexplorers.port5.com/cgi-bin/data2.txt") or die "Cannot open database file: $!";
flock(DATA, 2);
seek(DATA, 1, 0);
foreach my $item (@currentdata) {
print DATA "$item\n";
}
flock(DATA, 8);
close(DATA);