Select Code to Download

        if (@dbrec) {
            if ( @dbrec > 6 ) {
...
            }
            delete $list{$key};
        }

my $sql = <<ENDSQL;
select ...
...
        }
    }
}