#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbname='xxx';
my $user='anonymous';
my $pass='???';

my $dbh = DBI->connect("dbi:Pg:dbname=$dbname", $user, $pass, {RaiseError => 1, AutoCommit => 1}) or die $DBI::errstr;

my $cname='nur-ein-test';

$cname = $dbh->quote_identifier($cname);

$dbh->do("CREATE TABLE test (
              $cname text,
              datum date,
              id int
            )");

$dbh->disconnect();