# Example de connexion
use CGI;
use DBI;

my $debug=1;
$ENV{'ORACLE_HOME'}="L:\\oracle\\Ora81";

# 
$ENV{'NLS_LANG'}="FRENCH_FRANCE.WE8ISO8859P1";
my($dbd)="Oracle";
my($user,$pass)=("sys","sys");
# DBnames under Unix are usually capitalized
my $dbname ="RADU";
my @nomchamps;

$dbh = DBI->connect($dbname,$user,$pass,$dbd);
if (!$dbh) {
   print "Error\n";
   print "Error. Could not establish connection to $dbname : $DBI::errstr.\n";
   return;
}

$sql = "select * from tab " . 
    "where tname like \'%TABLESPACE%\'";
print "sql command *** $sql ***<br>\n\n" if $debug;
$cur = $dbh->prepare($sql);
$cur->execute();
if ($DBI::err) {
    print "Error Prepare: $DBI::err .... $DBI::errstring";
    return;
} else {
    # find out names of the columns
    @nomchamps = @{$cur->{NAME}};
    print "Colonnes: @nomchamps\n\n" if $debug;

    while ((@resultat) = $cur->fetchrow) {
        print "Resultat: @resultat\n" if $debug;
    }

    # close database connection
    $cur->finish();
}

$dbh->disconnect();
print "\nOk $0\n";