#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use Tie::Handle::CSV;

my $dir = '.';
if (@ARGV > 0) {
  $dir = $ARGV[0];
}

opendir DIR, $dir or die "Can't opendir '.': $!\n";
my @files = grep /\.csv$/i, readdir(DIR);
closedir DIR;

foreach my $file (@files) {
  my $csv = Tie::Handle::CSV->new(file => "$dir/$file");

  while (my $line = <$csv>) {
      # do nothing, just loop...
  }
}