5 open(IN,$file) || die "Can not open $file";
6 open(OUT,"> /tmp/upd.$$") || die "Can not open /tmp/upd.$$";
8 if (/Copyright \(C\) 1983-2000 Kevin Rosenberg/) {
9 print OUT '** Copyright (C) 1983-2000 Kevin Rosenberg
11 ** $Id: batch-update,v 1.1 2000/04/28 13:02:43 kevin Exp $
12 ** $Log: batch-update,v $
13 ** Revision 1.1 2000/04/28 13:02:43 kevin
24 `mv /tmp/upd.$$ $file`;