#!/usr/bin/perl -w -T

use strict;
use DBI;

my $dbh = DBI->connect("DBI:mysql:database=mail" host=localhost port=3306","user","pass");  

my ($id, $user, $pass_md5, $quota, $domain, $admin, $mailuser);
$user = 'admin';
$pass_md5 = 'MD5';
$quota = '1GB';
$domain = 'admin.org';
$admin = '1';
$mailuser = '1';

$dbh->do("INSERT INTO tabelle(user, pass_md5, quota, domain, admin, mailuser) VALUES(?,?,?,?,?,?)", $user, $pass_md5, $quota, $domain, $admin, $mailuser);  #Zeile 29

$dbh->disconnect();