while (@row = $sth->fetchrow()){
    
    $total_hours  = $row[4];
    $total_minutes = $row[5];
   
   print <<HTML;
    <TR BGCOLOR="#FFFFFF">
     <TD><FONT SIZE=2 FACE=ARIAL>$print_date</FONT></TD>
     <TD><FONT SIZE=2 FACE=ARIAL>$row[1]</FONT></TD>
     <TD><FONT SIZE=2 FACE=ARIAL>$in_time</FONT></TD>
     <TD><FONT SIZE=2 FACE=ARIAL>$out_time</FONT></TD>
     <TD><FONT SIZE=2 FACE=ARIAL>$row[4]:$row[5]</FONT></TD>
     
          
   
HTML
  } # End of while.