print qq(<TD>$obj->attr1()</TD>\n);

##</code><code>##

    <TD>DirectEntry=SCALAR(0x818e97c)->attr1()</TD>

##</code><code>##

    my $attr1 = $obj->attr1()
    print qq(<TD>$attr1</TD>\n);

##</code><code>##

    <TD>ITY101</TD>