!/usr/bin/perl

use strict;
use warnings;
use DBI;
use DBD::ODBC;

my $DSN='driver={SQL Server};Server="zdvsvlis";uid="";pwd=""';

my $dbh = DBI->connect("dbi:ODBC:$DSN") or die $DBI::errstr;

my $statement_create="Create database produkte";

my $sth_create=$dbh->prepare($statement_create) or die $DBI::errstr;

$sth_create->execute();

$sth_create->finish();
$dbh->disconnect();