#!/usr/bin/perl -w
use DBI;

# Zuweisen der Variablen

$treiber = "DBI:CSV:";
$arbeitsdir = "f_dir=/home/sb";
$name = "mueller";
$nummer = "99548";
$tabelle = "CERTID";

if (-e "/home/sb/CERTID") {
print "datenbank vorhanden";
} else {
&anlegen;
}

sub anlegen {

    $dbh = DBI->connect($treiber, $arbeitsdir)
        or die "Kann nicht verbinden: " . $DBI::errstr;
	
    $sth = $dbh->prepare("CREATE TABLE CERTID (CERTID INTEGER, Benutzer CHAR(10))")
        or die "Kann Datenbank nicht vorbereiten: " . $dbh->errstr();
    $dbh->do("INSERT INTO $tabelle VALUES (33564, ");

    $sth->execute() or die "Cannot execute: " . $sth->errstr();
    $sth->finish();
    $dbh->disconnect();
}