Select Code to Download

...
use DBI;
...

my $sth_match = $dbh_match->prepare(
...

DBI            version: 1.607
DBD::CSV       version: 0.22
...
    <- DESTROY(DBI::db=HASH(3c12a54))= ''
    <- disconnect_all= undef at DBI.pm line 717
!   <- DESTROY(DBI::dr=HASH(3c124c4))= undef during global destruction

DBI            version: 1.616
DBD::CSV       version: 0.31
...
        ON file_01.Chargeband = file_02.ChargeBand
        WHERE file_02.Termination LIKE '%something%'
      "] at C:\Users\Peter\Delme~~\PerlScratch\noname1.pl line 46.

...
        WHERE file_02.Termination LIKE ?
...

DBI->trace(1);
...