my $err = "";
{
    my $orig = select IO::String->new(\$err);
    $tcm->dbsqlexec || die "Error in dbsqlexec";
    select $orig;
}