#!/usr/local/bin/perl
use warnings;
use strict;
use CGI;
use DBI;
use HTML::Template;
my $query = new CGI;
my $id = $query->param('id');
my $db=DBI->connect( "dbi:Oracle:instance","user","password" ) || die( $DBI::errstr . "\n");
my $SQL = "SELECT id, dateOfIncident, descOfSymptoms FROM KnownErrors WHERE id='$id'";
my $sth=$db->prepare($SQL);
$sth->execute();
my $template = HTML::Template->new(filename => '/usr/local/apache2/htdocs/test.tmpl');
while (my $results = $sth->fetchrow_arrayref) {
$template->param(id => $results->[0]);
$template->param(dateOfIncident => $results->[1]);
$template->param(descOfSymptoms => $results->[2]);
}
print "Content-Type: text/html\n\n", $template->output;