$STH10=$DBH->query(' SELECT * FROM equiplog');
    print"<table>";
print"<form action='equipmentcalendar.pl' method='post'>";
while (@data = $STH10->fetchrow_array()) {

                           print "<tr>";
                           print "<td>$_</td>" for @data[1,2,3];
                            print "<td>";
                           print '<center>';
                           print button(
                                    -name => 'returned',
                                    -value => $data[0],
                                    -label => 'returned'
                                    );
                           print '<center>';
                           print "</td>";
                           print "</tr>";
                      }

print"</table>";