my $line;

        while (<>) {
          $line++;
          unless ( $line % 100 ) {
            print "commit;\n";
          }
          print;
        }