Some random points ...

• Does table emp have any records at all?
• use DBD::Oracle; is unneeded;
• Include the attributes in connect
• Add PrintError, PrintWarn and ShowErrorStatement
• or die "SQL Error…" is useless under RaiseError
• disconnect is implicit on lexicals

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";
    }
[download]

If you still don't get anything, you could add DBI->trace (5); or so.