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

##</code><code>##

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