its in a.pm sub db_connect { my ($eh) = @_; my $mode = _mode(); my $ca = ["dbi:Oracle:irsdb$mode",$ENV{HTTP_IRIPROJECT},$ENV{HTTP_IRIPROJECT} . length($ENV{HTTP_IRIPROJ ECT})]; return new app::DB($ca,$eh); }