my $csv = Text::CSV->new ({ binary => 1, auto_diag => 1, strict => 1 });

my $fn = "pm-1192449.csv";
-d "sandbox" and substr $fn, 0, 0, "sandbox/";
say $fn;
open my $fh, "<:encoding(utf-8)", $fn or die "$fn: $!\n";

while (my $row = $csv->getline ($fh)) {
    #
    }