Select Code to Download

# cat test.csv
vm,farm,dmz
name1,farm1,z1
name2,farm2,z2
name3,farm3,z3

#!/usr/bin/perl -w

...

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

    DBI::db=HASH(0x228e560) trace level set to 0x0/2 (DBI @ 0x0/0) in 
+DBI 1.622-ithread (pid 15876)
    -> STORE for DBD::Oracle::db (DBI::db=HASH(0x228e560)~INNER 'Usern
+ame' '<username>') thr#21f5010
...
dbd_rebind_ph_char() (1): bind :p3 <== 'z1' (size 24/32/0, ptype 5(VAR
+CHAR), otype 1 )
   dbd_st_execute INSERT (out0, lob0)...
Statement Execute Mode is 32 (COMMIT_ON_SUCCESS)