use Readonly; use vars qw($DB_NAME $DB_HORST $DB_PORT $DB_USER $DB_PASSWD $DB_URL ); Readonly $DB_NAME = "testdb"; Readonly $DB_HORST = "localhost"; Readonly $DB_PORT = "3306"; Readonly $DB_USER = "Test"; Readonly $DB_PASSWD = "Test"; Readonly $DB_URL = "DBI:mysql:database=$DB_NAME;host=$DB_HORST;port=$DB_PORT";