Select Code to Download

    # Create new Xbase object using the file name passed in
    my $table = new XBase "$dbfFileName" or die XBase->errstr;
    
    # Get field names in the table
    my @fieldNames = $table->field_names;

    # Create a select statement to get this data from the table
    my $selectStatement = "SELECT ";
...

    my $sth = $dbh->prepare(" $selectStatement ") or die $DBI::errstr;
    $sth->execute() or die $sth->errstr(0);

    # Walk through results set one row at a time
    while ( my (@row) = $sth->fetchrow_array())
...
        my $COMMENTS = $row[27];
        my $POSITION_ = $row[28];
        my $TEST_ID = $row[29];

     my $localValues = "my \$";
    $localValues .= join(', $',@fieldNames) ; # 
    print "$localValues\n" if $debugFlag;

     while ( my ($localValues) = $sth->fetchrow_array())

  my $LINK_ID, $POI_ID, $FAC_TYPE, ....  $TEST_ID

while ( my (my $LINK_ID, $POI_ID, $FAC_TYPE, ....  $TEST_ID) = $sth->f
+etchrow_array())

my $prepStatement = <<TO_END_SQL_STATEMENT;
insert into ORACLE_TABLE 
...
values 
( '$LINK_ID', $POI_ID, ..... , $TEST_ID' )  
TO_END_SQL_STATEMENT