my $ref = $sth->fetchall_arrayref;

for my $rec (@$ref){
  $query_results .= "<tr>";
  no warnings;
  for my $field (@$rec)
    {$query_results .= "<td>$field</td>"; }
  $query_results .= "</tr>";    
}
$sth->finish();
$dbh->disconnect();
return($query_results);

##</code><code>##

my $ref = &select_query($sqlstatement);

for my $rec (@$ref){
  $query_results .= "<tr>";
  no warnings;
  for my $field (@$rec)
    {$query_results .= "<td>$field</td>"; }
  $query_results .= "</tr>";    
}