system('sqlldr.exe CREDS CONTROL=C:\Apache2.2\script_run\bv_on_acc_loader.ctl'); my $sth = $dbh_o->prepare(q~MIGHTY SQL STATEMENT~) or die "Couldn't prepare statement: " . $dbh_o->errstr; open(OUT,'>',"c:\\Apache2.2\\script_run\\$file") or die("open failed: $!"); $sth->execute(); while (my @data = $sth->fetchrow_array()) { print OUT join(';',@data),"\n"; } $dbh_o->disconnect; close(OUT);