# See the embedded POD or the HTML documentation

use strict;
use Data::Dumper;
use SQLDBA::ParseSQL qw( dbaNormalizeSQL dbaSplitBatch );

Main: {
   my $dir = shift or die "***Err: $0 expects a directory name.";
   (-d $dir) or die "***Err: directory $dir does not exist.\n";

   # read the file names in the directory
   opendir(DIR, $dir) or die "could not open $dir.\n";
   my @fileNames = map { "$dir\\$_" } grep {!/^\.\.?/} readdir(DIR);
   closedir(DIR);
   
   my $counterRef;