#!/usr/bin/perl
BEGIN {
  $ENV{DBI_PUREPERL} = 2;
  unshift(@INC,"$ENV{'DOCUMENT_ROOT'}/cgi-bin/");
}
use DBI;