use strict;
use DBI;
my $host = "192.X.X.X";
my $sid  = "mydb";
my $dbh  = DBI->connect ("dbi:Oracle:host=$host;sid=$sid;", "SCOTT", "tiger", {
    AutoCommit         => 0,
    RaiseError         => 1,
    ora_check_sql      => 0,
    RowCacheSize       => 100,
    PrintError         => 1,
    ChopBlanks         => 1,
    ShowErrorStatement => 1,
    FetchHashKeyName   => "NAME_lc",
    }) or die "Cannot connect to server". $DBI::errstr\n;

my $sth = $db->prepare ("select * from emp where status = 'NEW'");
$sth->execute;
while (my @row = $sth->fetchrow_array ()) {
    print join "\t" => map { $_ // "" } @row;
    print "\n";
    }