use Modern::Perl;
use DBI;

my $dbh = DBI->connect(
    "dbi:CSV:",
    undef, undef,
    {
        f_ext      => '.csv',
        f_dir      => 'D:/Perl/scripts',
        RaiseError => 1,
    }
) or die "Cannot connect: $DBI::errstr";

$dbh->do(q/UPDATE test SET First = 'CONDENSED' WHERE test.First = 'C'/);
$dbh->do(q/UPDATE test SET First = 'FINAL' WHERE test.First = 'F'/);
$dbh->do(q/UPDATE test SET Fifth = 'Ohio' WHERE test.Fifth = '0H'/);
$dbh->do(q/UPDATE test SET Fifth = 'Oregon' WHERE test.Fifth = '0R'/);