#!/usr/local/bin/perl

use strict;
use warnings;
use diagnostics;
use Oracle::SQLLoader qw/$CHAR $INT $DECIMAL $DATE/;

### load a simple comma-delimited file to a single table
my $ldr = new Oracle::SQLLoader(
 				infile => 'C:\Sales Report Thru 12 March 2009.csv',
 				terminated_by => ',',
 				username => 'xxxxx',
 				password => 'xxxxx',
                sid => 'xxxxx'
 			       );
$ldr->addTable(table_name => 'testTableName');

$ldr->addColumn(column_name => 'Location_ID');
$ldr->addColumn(column_name => 'Type_Description');
$ldr->addColumn(column_name => 'Type_ID');
$ldr->addColumn(column_name => 'DetailType');
$ldr->addColumn(column_name => 'Amount');

$ldr->executeLoader() || warn "Problem executing sqlldr: \n";