read_csv.pl

#!/usr/bin/perl

use strict;
use warnings;

my ( $csv, $date_low, $date_high ) = @ARGV;
# my $counter = 0;

open( my $csv_fh, '<', $csv ) or die "open $csv: $!\n";
    
    foreach my $line ( <$csv_fh> ) {
        # $counter++;
        # next if ( $counter == 1 );
        
        chomp( $line );
        my @fields = split( ',', $line );
        
        next if ( $fields[0] !~ /^\d+$/ );

        print "$fields[1] - $fields[2] $fields[3] - $fields[4]\n"
            if ( $fields[1] >= $date_low && $fields[1] <= $date_high );
    }

close( $csv_fh );