open (GB,"$bookfile");
@oldstuff = <GB>;
close GB;
open (FILE,">$newfile");
print FILE "pre-pendings here\n";
print FILE "@oldstuff";
close FILE;
# rename file if necessary