use constant DSN => 'DBI:mysql:database=devel';
 ...
 my $dbh = DBI->connect( DSN, 'username', 'password' )
           || die $DBI::errstr;