or download this
my $dbh = DBI->connect('dbi:ODBC:driver=Microsoft Access Driver (*.mdb
+, *.accdb);dbq=D:\Project\Project\BSC_KPIMonitoring\CHN\E_BSC_KPIMoni
+torDB.mdb', undef, undef, { RaiseError => 1});
...
print join(",", $kpis{$kpi}, $bsc, $thresh, "/$somecol");
}
}