#!/appl/perl-5.6.1/bin/perl

no warnings 'recursion';

use DBI;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
use FileHandle;

$ichs_cfg{shlib_path} = "/usr/oracle_cl8.1.6/lib:/usr/lib:/lib:";
$ichs_cfg{oracle_home} = "/usr/oracle_cl8.1.6";
$ichs_cfg{two_task} = "prch";
$ichs_cfg{tns_admin} = "/home/oracle/tnsnames";

#Next we set some environment variables.
#I don't fully understand the need for some of these either, but it works.
$ENV{"LD_RUN_PATH"} ="/usr/oracle_cl8.1.6/lib";
$ENV{"SHLIB_PATH"} = $ichs_cfg{shlib_path};
$ENV{"TWO_TASK"} = $ichs_cfg{two_task};
$ENV{"ORACLE_HOME"} = $ichs_cfg{oracle_home};
$ENV{"TNS_ADMIN"} = $ichs_cfg{tns_admin};
eval "use Oraperl";

$mycgi = CGI->new();