print $q->start_table({border=>5,width=>800}); 
                 my @headers=("ID", "TITLE","STATUS","UNITS","EFFORT","UNIT EFFORT","PHASE","% COMPLETION","SUB BRANCH","CHECKED IN","TREND","WAITING FOR DEPENDENCY"); 
                 my @row; 
                print $q->th([@headers]); 
 
        while($hsd_db->read()) 
        {       @row=(); 
              $id= $hsd_db->getVal($hsd_db->getName(0)); 
                $title=$hsd_db->getVal($hsd_db->getName(75)); 
                $status=$hsd_db->getVal($hsd_db->getName(67)); 
                $units=$hsd_db->getVal($hsd_db->getName(76)); 
             if($units=~m/$unitname/i) 
             { 
               push(@row,$id); 
               push(@row,$title); 
               push(@row,$status); 
              push(@row,$units); 
 
                #  print "id: $id, Name:$name, Status:$status \n"; 
          print $q->Tr($q->td([$id,$title,$status,$units])); 
 
 
 
                print $q->p; 
                } 
 
                 } 
 
             } 
print $q->end_table; 
 
 
 
print $q->end_form; 
print $q->end_html;