my $string;
{
    open local(STDOUT), '>', \$string;
    $obj->print;
}