my $dbh;
    my $sth_A = $dbh->prepare($sql_command_D) ...