[-   
   $dbh = DBI->connect($DSN);  	
   $sth = $dbh->prepare("SELECT * FROM blash "); 	
   $sth->execute;	
   $head = $sth->{NAME}; 	
   $data = $sth->fetchall_arrayref;
 -]
 
<table>
    <tr>
        <th>[+ $head->[$col] +]</th>
    </tr>
    <tr>
        <td>[+ $data->[$row][$col] +]</td>
    </tr>
</table>