#!/usr/bin/perl
use strict;

InsertRecords("file.parsed");

sub InsertRecords {
  my $ctrl = "$DIRBIN/main.ctl";
  my $data = shift;
  my $log = "$DIRLOG/sqlloader.log";
  my $logbad = "$DIRLOG/sqlloader.bad";
  system("$ORACLE_HOME/bin/sqlldr control=$ctrl data=$data userid=user/pwd\@dbname log=$log bad=$logbad");
}

##</code><code>##

SQL*Loader: Release 9.2.0.8.0 - Production on Mon Jul 13 19:16:46 2009

Copyright (c) 1982, 2002, Oracle Corporation.  All rights reserved.

Commit point reached - logical record count 64
Commit point reached - logical record count 78