Select Code to Download

 
my @dbs = (
    [ 'OWNER', 'dbi:...', 'user', 'pass' ],
...
     PopulateTableStats( $dbh, $fh, ... );
     DumpTableStats( $dbh, $fh, ... );
}

sub Query4Over500 {
    my ( $dbh, $FHExtract, $tb_name ) = @_;
    $tb_name = $dbh->quote_identifier( $tb_name );
...
        print $FHExtract ToCsv( $aref );
    }
}