# !/usr/bin/perl -w

use strict;
use DBI qw(:sql_types);

my $dsn = "dbi:ODBC:Daily_Rec";
my $dbh = DBI->connect($dsn,'','', 
		    {RaiseError=>1,PrintError=>1,AutoCommit=>1} );

open(DAT, "c:/Temp/heldreceipts_TempFile.txt")
    or die "could not open Held Receipts file: $!";
my $query = qq{insert into Held_Receipts values (?,?,?,?,?,?,?,?)};
my $sth = $dbh->prepare($query)
    or die "cannot prepare query: $DBI::errstr";

while(<DAT>)
{
    chomp;
    my @line = split /\|/;
    $sth->execute(@line) 
	or die "Execute error: $DBI::errstr";
}

$sth->finish();
$dbh->disconnect();