package My::Config;
use strict;
use Readonly;

Readonly our $DATABASE => "drow";
Readonly our $DB_TABLE => "drow_dictionary";
Readonly our $DB_USERNAME => "root";
Readonly our $DB_PASSWORD => "";

1;

require "drow_pwx.pl";       # Contains database credentials
...
my $dbh = DBI->connect("DBI:mysql:$My::Config::DATABASE:localhost", $My::Config::DB_USERNAME, $My::Config::DB_PASSWORD ) ||
  die( "Could not establish database connection: ".$DBI::errstr );
  $dbh->do( "delete from $My::Config::DB_TABLE" );
# usw.