#!/usr/bin/perl

use strict;
use HTML::Table::FromDatabase;

# $Id: example.pl 412 2008-08-20 22:44:07Z davidp $
# Simple usage example for HTML::Table::FromDatabase

# Normal DBI stuff to perform a query...
my $dbh = DBI->connect('dbi:mysql:test');
$sth = $dbh->prepare('select * from mytable')
    or die "Failed to prepare query - " . $dbh->errstr;
$sth->execute() or die "Failed to execute query - " . $dbh->errstr;

# Now use HTML::Table::FromDatabase:
my $table = HTML::Table::FromDatabase->new( -sth => $sth, -border => 1 );
$table->print;