print qq(<TD>@{[$obj->attr1()]}</TD>\n);