open (FILE,">$newfile");
print FILE "pre-pendings here\n";
open (GB,"$bookfile");
while (<GB>) {
     print FILE "$_";
}
close GB;
close FILE;
# rename file if necessary