I:

01: #!/usr/bin/perl -w
02: # connect_test.pl
03: # Chapter 2
04: # Listing 1
05: use strict;
06: use DBI;
07: print "Available Database Drivers:n";
08: print "*" x 40, "n";
09: print join("n", DBI->available_drivers()), "nn";

II:

01:$EVN{"ORACLE_HOME"}="/home/oracle/ora9i"

01:my $constr=DBI->connect("DBI:Oracle:orasid","orauser","password"

02:) ||die("Cannot connect :$DBI::errstr");

03:my $sql = qq(select sysdate from dual);

04:my $sql_result = $constr->prepare($sql);
III:

05:while (my $p = $sql_result->fetch) {print "@$p n";}

06:$constr->disconnect;

#!/usr/bin/perl -w
run perl dbi module with warning