use warnings;
use strict;

use DBI;

my $datenbank = "mitarbeiterdaten";
my $host = "localhost";
my $dsn = "DBI:mysql:database=$datenbank;host=$host";

my $benutzer = "root"; my $passwort = "66666";

my $dbhandle = DBI::->connect( $dsn, $benutzer, $passwort) or die DBI::errstr;

my $sql = qq(SELECT * FROM t_mitarbeiter);

my $sth = $dbhandle->prepare($sql) or die $dbhandle->errstr;

$sth->execute or die $sth->errstr;

open(OUT, ">D:\\SQL_INHALT.txt");
print OUT $sth;
close(OUT);