$dbh = DBI->connect (dbname, $dbuser, $dbpass, 'Oracle');

if (!defined $dbh) {
    print LOG "Cannon connect to Oracle: $DBI::errstr\n";
    die "Cannont connect to Oracle: $DBI::errstr\n";
}
$sth1 = $dbh->prepare ("select user
                        from users
                        where state = 'iowa'");