my $dbh = DBI->connect("dbi:Oracle:dezv", $user, $pass)
                or die "Couldn't connect to database: " . DBI->errstr;