sub repl
{
#print "********REPLICATION STATUS********\n\n";
my $rs = $dbh->prepare("show status like 'slave_running'");
my $rrdbs = $dbh->prepare("show variables like 'read_rnd_buffer_size'");
$rs->execute();
$rrdbs->execute();

while(my @vall = $rs->fetchrow_array())
     {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>
";
       # print "Replication Slave Status: $vall[1]\n";
        if($vall[1] eq 'ON')
             {
                 #print "The system is configured as Mysql Replication SLAVE\n";
                 #print " The following is the  Slave Status\n";
                 my $mas_hos = $dbh->prepare("show slave status");
                 $mas_hos->execute();
                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";