Help for this page
BEGIN { $Max::robi = 'dbname'; }; use Max;
package Max; use strict; ... my $dbh = DBI->connect("dbi:SQLite:dbname=$Max::robi", "", "",{RaiseEr +ror=>1, AutoCommit=>1});