#! /usr/bin/perl -w
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI 1.41 ();
my $dbh;
my $sth;
my $baz;
my @row;
my $nCNID = 40;
#my $DBTYP = 'DBI:InterBase';
my $dbname = "/home/hd-arbeit/BWM/bwmdb.fdb";
my $dialect = 3;
print header();
#print '',"\n";
#print '',"\n";
#print '',"\n";
print 'Bienwald Marathon Kandel - ANMELDUNG',"\n";
#print '',"\n";
#print '',"\n";
#print '',"\n";
print start_html();
print "Hallo Welt!! ;-)
\n";