#!/usr/bin/perl -wT
use strict;
print "Content-type: text/html\n\n";
my $dbh = My::DB->connect();
print "ok!" if $dbh->{RaiseError} == 1
           and $dbh->{f_dir} eq '/foo/bar';

package My::DB;
use strict;
use DBI;
sub connect {
    if (defined $My::DB::conn) {
        eval {$My::DB::conn->ping};
        print "RE-USING EXISTING CONNECTION ...<p>" if !$@;
        return $My::DB::conn if !$@;
    }
    print "MAKING NEW CONNECTION ...<p>";
    $My::DB::conn = DBI->connect(
        'DBI:CSV(RaiseError=1):f_dir=/foo/bar'
    );
    return $My::DB::conn;
}
1;