#!/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");
}