my $err = "";
{
    require IO::String;
    local *main::STDOUT = $err = IO::String->new;
    $tcm->dbsqlexec || die "Error in dbsqlexec";
}