sub display {
                $self = shift;
                if(exists $error){
                  $html .= "<table border=0>";
                  $html .= "<tr>";
                  $html .= "<td align=center ><b>".$self->     {error}."</b></td>";
                  $html .= "</tr>";
                  $html .= "</table><br>";
           }
     
                 $html .= <<END;
     
                    <table border=0>
                    <tr>
                   <th bgcolor="#CCCCEE">Name</th><th>&nbsp;     </th><th bgcolor="#CCCCEE">Address</th>
                   </tr>
        
                   <tr align=center>
                   <td bgcolor="#EEEEEE">@{[ $qry->popup_menu(-id=>'ID', -name=>'PS', -size=>10, -values=>$array_ref, -labels=>$hash_ref,  -onChange=>"fetchData(id,'','','')") ]}</td>
   
                   </tr>
                </table>

END

return $html;

}