BEGIN {
  $Max::robi = 'dbname';
};
use Max;

##</code><code>##

package Max;
use strict;
use DBI;            
use Carp;

croak '$Max::robi undefined'
    unless defined $Max::robi;

my $dbh = DBI->connect("dbi:SQLite:dbname=$Max::robi", "", "",{RaiseError=>1, AutoCommit=>1});