print "<table><thead><tr><th>Slave_IO_State</th><th>Master_host</th><th>Slave_IO_Running</th><th>Slave_SQL_Running</th></tr></thead><tbody>";
while ( my @val = $mas_hos->fetchrow_array() ) {

    print "<tr><td>$val[0]</td>";
    print "<td>$val[1]</td>";
    print "<td>$val[10]</td>";
    print "<td>$val[11]</td>";
    #print "<td>$val[33]</td>";
    print "</tr>\n"
}
print "</tbody></table>\n";