if ( $line =~ /NEWTABLE/) {
         print "b4 seek $line\n";
         print "len :$length:\n";
         seek(FH, (0 - length($line)), SEEK_CUR);
         chomp($line=<FH>);
         print "--> $line\n";
         exit;
       }