#!/usr/bin/perl -w
use strict;
use warnings;
use autodie;
use POSIX qw(strftime);
use File::Temp qw/ tempfile tempdir /;
use Text::CSV;

my $file = "widget-18465-20200611.txt";
open my $fh, "<", $file;

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

my $header = $csv->getline($fh);

while (my $row = $csv->getline($fh)) {
	print "$row->[1]\n";
}
close $fh;