use constant DBNAME => "database_test";
...
my $dbh = DBI->connect('DBI:mysql:database=' . DBNAME, 'username', 'password')
    or die "$0: can't connect to DB: " . DBI->errstr . "\n";