use dbi;
use diagnostics;
use strict;

my $dbh = DBI->connect("dbi:Oracle:host=192.168.0.10", $dbuser, $dbpass)|| die "                                                                                        $!";

$db->{AutoCommit}    = 0;

$db->{RaiseError}    = 1;

$db->{ora_check_sql} = 0;

$db->{RowCacheSize}  = 16;

my $SEL = "SELECT * FROM HR";
my $sth = $db->prepare($SEL);
$sth->execute();

while ( my @row = $sth->fetchrow_array() ) {
    foreach (@row) {
        $_ = "\t" if !defined($_);
        print "$_\t";
    }
    print "\n";
}

END {
    $db->disconnect if defined($db);
}