use strict;
use warnings;

package Max;

use DBI qw( );

my $robi;
my $dbh;

sub init {
   (my $class, $robi) = @_;
   $dbh = DBI->connect(
      "dbi:SQLite:dbname=$robi",
      "", "",
      { RaiseError => 1, AutoCommit => 1},
   );
}

...

1;