use Data::Table;
  use DBI;

  my $dbh= DBI->connect("DBI:mysql:test", "test", "")
             or die $DBI::errstr;

  my $minAge = 10;
  my $t = Data::Table::fromSQL
          (
             $dbh,
             "select * from mytable where age >= ?",
             [$minAge],
          );
 
 # Print out an HTML Table.
  print $t->html;