Hi, I tried what you what suggested.. I also tried the below..

 open (WFH1, ">", "${basePath}/QueryResult4.txt");
run '$SQLPLUS \@${basePath}/VoucherQuery4.sql $startdate',  \*WFH1;
[download]

These are not throwing any error but not able to write on the output file.. could you please extend your help? sorry for sounding dumb and confused.. :)

Try

open (WFH1, '>', "${basePath}/QueryResult4.txt") or die "$!";
run "$SQLPLUS \@${basePath}/VoucherQuery4.sql $startdate", undef, \*WF
+H1;
[download]

See IPC::Run

## Using run() instead of system():
use IPC::Run qw( run timeout );
run \@cmd, \$in, \$out, \$err, timeout( 10 ) or die "cat: $?"
[download]

In response to your question here http://stackoverflow.com/questions/27597811/how-to-increase-efficiency-of-perl-script-which-uses-sqlplus, consider using a sub-select query
Read more... (700 Bytes)
poj