#!perl -w
use strict;
use DBI;
use DBD::Oracle;
my $host = "192.X.X.X";
my $sid = "mydb";
my $db = DBI->connect("dbi:Oracle:host=$host;sid=$sid;","SCOTT","tiger")
 or die "Cannot connect to server". $DBI::errstr;
$db->{AutoCommit}    = 0;
$db->{RaiseError}    = 1;
$db->{ora_check_sql} = 0;
$db->{RowCacheSize}  = 100; 
my $query = "select * from emp where status ='NEW'";
my $prepared_query = $db->prepare($query);
$prepared_query->execute
or die "SQL Error: $DBI::errstr\n";
while ( my @row = $prepared_query->fetchrow_array() ) {
	#print "@row";
    foreach (@row) {
        $_ = "\t" if !defined($_);
        print "$_\t";
    }
    print "\n";
}
 
END {
    $db->disconnect if defined($db);
}