#!/usr/bin/perl
use strict;
package reportconf;
use vars qw(%c);
%c = (DB=>"myDB1"}; # oder eben myDB2 beim
                    #Entwickler 2
1;