#!/usr/bin/perl -w

use strict;
use DBI;

# Deklaration der lokalen Variablen
my ($dbh);
my $db_name = "_DBNAME_";
my $db_user = "_DBUSER_";
my $db_pwd = "_DBUSER_PWD_"; 

$dbh = DBI->connect("dbi:Oracle:$db_name", $db_user, $db_pwd, {RaiseError=>0, PrintError=>0 , AutoCommit => 0});
if (!defined $dbh) { 
	print "DB-Connect-Fehler: $!\n";
	exit;
}
 
my $hStatement = $dbh->prepare("SELECT count(*) FROM tbl");
 $hStatement->execute;

my @count = $hStatement->fetchrow_array();

print "Content-Type: text/html\n\n";
foreach (@count){
	print "$count[0]\n";
}

$hStatement->finish;
$dbh->disconnect;