my $dbh = DBI->connect("DBI:mysql:database=".$config{'db_name'}.";host=".$config{'db_host'},$config{'db_user'},$config{'db_passwd'}) or die("Cannot open database connection: $DBI::errstr"); my $statement="$config{'db_name'} < $textdatei"; print $statement."
"; $dbh->do($statement) or die("Kann ($statement) nicht ausführen: $DBI::errstr"); $dbh->disconnect;