Select Code to Download

Souce Data
X~Y~Z
1~2~3
col1~col2~col3~col4~col5
A~B~C~D~E

my $dbh = DBI->connect("dbi:CSV:",undef,undef,{
                        f_dir           =>      $_ENV::TempFilesDIR,
...


$dbh->do('UPDATE cimp_money SET forename=?,surname=? WHERE emp_no=?',u
+ndef,$wrk_forename,$wrk_surname,$wrk_emp_no) or die $DBI::errstr;

Output Data
X~Y~Z~~
1~2~3~~
col1~col2~col3~col4~col5
A~B~C~D~E