#!/usr/bin/perl

use strict;
use warnings;
use Config::Tiny;

my $Config = Config::Tiny->new;
$Config = Config::Tiny->read( 'file.conf' );
my %dbs = %{$Config->{datenbanken}};
print "$_: $dbs{$_}\n" for keys %dbs;