#!/usr/bin/perl 
# -------------------------------------------- 
print "Content-type: text/html\n" ; 
print "Pragma: no-cache\n\n"; 
use Text::CSV_XS; 
$id = "832333"; 
$in{'p_address_2'} = "Test 123"; 
my $fh = Text::CSV_XS->new({ binary => 1, sep_char => '|', eol => "\n"}); 
open my $csv, "<", "./Admin/data/bims-properties.db" or die "./Admin/data/bims-properties.db: $!"; 
while (my $row = $csv->getline($fh)) { 
if ($row->[0] eq $id) { 
$row->[8] = $in{'p_address_2'}; 
print qq~ $row->[8]~; 
} 
$csv->print($out, $row); 
} 
close $fh or die "./Admin/data/bims-properties.db: $!"; 
print qq~ end~; 

exit;