#!/usr/bin/perl -w

use strict;
use DBI;
use CGI qw(fatalsToBrowser);

my $q = new CGI;
my $dbh = DBI->connect("dbi:mysqlPP:database=generator;host=localhost","root", "mysql",{'RaiseError' => 1});

print $q->header,
	 $q->start_html();
&display;
print $q->end_html;
$dbh->disconnect;
exit;

sub display {
  	my $statement = qq(SELECT * FROM clients LIMIT 10);
  	my $sth = $dbh->prepare($statement);
  	$sth->execute();
 	my @row = $sth->fetchrow_array;
  	$sth->finish();
 	print $q->p(@row);
}