close GB;
open( GB, ">$file");