##!/usr/bin/perl

##########################################################
# Configuration
my $host = '';
my $database='';
my $db_1='';
my $db_2='';
my $user='';
my $password='';
##########################################################
# Program
use FindBin;

use lib "$FindBin::Bin/..";

use strict;
use warnings;
use Socket;

%main::ua = ();


	$main::db = undef;

	@main::db_connect = (
							"DBI:mysql:mysql:$main::host",
							$main::user,
							$main::password
						);


use Mysql;

$db = Mysql->connect(host, database, user, password);

$db->selectdb($database);

$query = db->query(SELECT * FROM $db_1 );

while (%hash = $query->fetchhash) {
unlink ('/etc/bind/.'$hash{'name'}.'.db');

open(file, ">$query->ausgabe";
$querys = $db->query(SELECT * FROM $db_1');

close (file);
}