$sth_m->execute or die "executing: ", $dbh_m->errstr;

my $table = $sth_m->fetchall_arrayref;
foreach my $row (@$table) {
	print "    <tr>";
	print "        <td>$row->[0]</td>";
	print "        <td>$row->[1] $row->[2]</td>";
	print "        <td>$row->[3]</td>";
	print "        <td>$row->[4]</td>";
	print "        <td>$row->[5]</td>";
	print "        <td>$row->[6]</td>";
	print "        <td>$row->[7]</td>";
	print "    </tr>";
}

##</code><code>##

------------
:Wq
Not an editor command: Wq