Perl program.pl

sqlplus  user/passwd@db

 
#!/usr/bin/perl
use strict;
use DBI;
my $ORACLE_HOME = "/oracle/product/10.2.0";
$ENV{ORACLE_HOME} = $ORACLE_HOME;
my $ORACLE_SID="bpmardbd";
$ENV{ORACLE_SID}=$ORACLE_SID;
my $user= "userc";
my $passwd= "passwd";
my $sid = "dba";
my $host = "king.info.com";
my $dbh = DBI->connect("dbi:Oracle:host=$host;sid=$sid;port=1588",$user,$passwd) or die "Couldn't able to connect to database $@\n";
my $sql ="select sysdate from dual";
#my $sql ="select tname from tab where rownum <6";
#my $sql ="select tname from tab where tname='CQC_TEST_CASES'";
my $sth = $dbh->prepare($sql);
$sth->execute();
while (my $row = $sth->fetchrow_array)
{
  print $row . "\n";
}
$dbh->disconnect;

 
#my $sql ="select tname from tab where rownum <6";

DBD::Oracle::st execute failed: ORA-03106: fatal two-task communication protocol error (DBD ERROR: OCIStmtExecute) [for Statement "select tname from tab where rownum <6"] at testDB.pl line 21.
DBD::Oracle::st fetchrow_array failed: ERROR no statement executing (perhaps you need to call execute first) [for Statement "select tname from tab where rownum <6"] at testDB.pl line 22.

#my $sql ="select tname from tab where rownum <6";

my $sql ="select sysdate from dual";