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.