Hi All,

I have a problem when I use the DBI module in scritp .pm. please help

thanks you

package CC;

use DBI; use strict; use Alias;

my $dbFile = 'XXXXXXXX.db';

my $db = DBI->connect("dbi:SQLite:$dbFile","","", {RaiseError =>1, AutoCommit => 1})or "Unable to connect: $DBI::errstr\n";

use Alias qw(attr); our ($CURRENTOFFSET,@LANGUAGE);

sub new { my $that = shift; my $class = ref($that)|| $that; my $self = { CURRENTOFFSET=> undef, LANGUAGE => []
}; bless($self, $class); return $self; }