use strict;
  use warnings;
  use Text::CSV_XS;

  my $file = "C:\\Users\\..\\Desktop\\reportlist.csv";
  open my $fh, "<", $file or die "$file: $!";

  my $csv = Text::CSV_XS->new ({
      binary    => 1, # Allow special character. Always set this
      auto_diag => 1, # Report irregularities immediately
      });
  while (my $row = $csv->getline ($fh)) {
      print "@$row\n";
      
      }
  close $fh;