use strict;
use warnings;
use Text::CSV_XS;
my $csv = Text::CSV_XS->new ({auto_diag => 1, binary => 1 });
my $infile_name = "DeviceTrim.csv";
open my $CSV_INPUT, "<", $infile_name or die "$infile_name: $!";
my $row = $csv->getline ($CSV_INPUT);

##</code><code>##

Can't call method "getline" on an undefined value at DeviceTrimGen.pl line 7.