#!/usr/bin/perl -w
use strict;
use CGI::Wrap;
use CGI qw( :standard );
use DBI;

my $dbname = 'jonas'; my $user = 'jonas'; my $passwd = 'jonas';
my $dbh = DBI->connect("dbi:Pg:dbname=$dbname", $user, $passwd) or die;
my $sql = "select * from personer";

my $sth = $dbh->prepare( $sql ) or die( "< $sql > ".$DBI::errstr );

$sth->execute or die(  "< $sql > ".$DBI::errstr );




my $table ="";
while( my $record_ref = $sth->fetchrow_hashref )
{
    $table .= Tr( td([ $record_ref->{'fnamn'}, 
		       $record_ref->{'enamn'}, 
		       $record_ref->{'alder'}, 
		       $record_ref->{'gillar'}, 
		       ]))."\n";
}
$sth->finish;
$dbh->disconnect;

print header;
print start_html('Persontabellen'), h1('Persontabellen'),"\n";
print table( $table );
print end_html;