#!/Perl/bin/perl use strict; my %CFG = (); $CFG{dsn} = "DBI:mysql:test:localhost"; $CFG{username} = "benutzername"; $CFG{password} = "passwort"; \%CFG;