my $widgets_found;
while (<>) {
  print;
  if (/^DATABASE:/) {
       print "Widgets found: $widgets_found\n";
       $widgets_found = 0;
  }
  if ( $something ) {
       $widgets_found++;
  }
}