my $dbh = DBI->connect("dbi:CSV:f_dir=$_ENV::LogsFilesDIR;csv_sep_char=\\~") or die $DBI::errstr;
$dbh->{'csv_tables'}->{'prospects'} = { 'file' => 'cimp_new_entrant.txt'};
 $dbh->do("UPDATE prospects SET Forename = 'Nitin'");
my $sth = $dbh->prepare("select Forename from prospects");
$sth->execute();
while (@row = $sth->fetchrow_array) {
  print @row;
   }
   $sth->finish( );
   $dbh->disconnect( );