#!/usr/bin/perl -Tw
use strict;
-use DBI;
+use FS::DBI;
use HTML::TableParser;
use Date::Parse;
use Text::CSV_XS;
);
-$s_dbh = DBI->connect($s_dbname, $s_dbuser, $s_dbpass,
+$s_dbh = FS::DBI->connect($s_dbname, $s_dbuser, $s_dbpass,
{ 'AutoCommit' => 0,
'ChopBlanks' => 1,
'ShowErrorStatement' => 1