open (GB,"+<$bookfile")||die "can't open\n";\n
seek (GB,0,0);
print GB "$data1|$data2|\n";