my $user   = $ENV{ORACLE_USER};
my $passwd = $ENV{ORACLE_PASS};
my $SID    = $ENV{ORACLE_SID};
my $dbh = DBI->connect($SID,$user,$passwd,{PrintError=>0, AutoCommit=>0})
  or die "Could not connect to $SID: $DBI::errstr\n";