# ...
my $dbh = DBI->connect($data_source, $username, $auth, \%attr) or die "konnte keine Verbindung zur Datenbank aufbauen: " . DBI::errstr();

my $bereichs_sql = qq~
# ...
~;
my $sth = $dbh->prepare($bereichs_sql) or warn "Konnte prepare() nicht ausführen. " . $dbh->errstr();
$sth->execute();

print Dumper $dbh->{ParamValues};
# ...