Select Code to Download

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

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

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

    <TD>ITY101</TD>