#!/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';

# entwerten von doppelten Anführungszeichen durch verdoppeln,
# wenn sie im Spaltennamen vorkommen
$cname=~/"/""/gs;
# es kann aber dennoch sein, dass fremder Code eingeschleust wird.

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

$dbh->disconnect();