hi, I am trying to extract data from the sql db to publish it on a website. It prints the header fine, but not the print response section.

sub print_response {
    unless ($query->param) {
      print "<b>No data has been submitted</b>";
      return;
    }
    $sql = "SELECT col1, col2 FROM test ORDER BY col2 desc;";
    $sth=$dbh->prepare($sql) or die $dbh->errstr;
    $sth->execute;
    print "</td><td>";
    print "<table border>";
    print "<tr>";
    print "<th>col1</th>";
    print "<th>col2</th>";
    print "</tr>";

    while (my $hash_ref = $sth->fetchrow_hashref) {
          $the_st = $hash_ref->{'col1'};
      $the_mc = $hash_ref->{'col2'};
      print "<tr><td>$the_st</td><td align=\"right\">$the_mc</td></tr>
+";
    }
    print "</table></td></tr></table>";
    $sth->finish;
   }
[download]

Can you please let me know where my error is. thanks!