Perl script that run long time and did not return result cod

[sammak1688]

I have a Perl script that called a sql file and then Oracle stored procedure and run long time (about 1.5 hours). It called the sql by $rtnCode = system(sqlplus -s job.sql);

I have the following code to check the return code:

if (($rtnCode >>= 8) != 0) {
writeErr("Failed to run the job");
}

But it did not return the return code (may be because it runs for long time). Is there any settings that can get the return code ?

[sammak1688]

There are some more information about the scenario:

The application server is in the DMZ zone and the database is in the trusted zone. Is the problem related to the time out of the tcpip or the settings of the oracle database ?

Please help.