my $database = 'TEST_DB';
my $DSN = "dbi:Oracle:$database";
my $dbh = DBI->connect( $DSN,
                          $DBUSER,
                          $DBPASS,
                          {AutoCommit => 1, RaiseError => 1}) or die "Can't connect DB [$!]";