#! /usr/bin/perl
use strict;
use warnings;

use Text::CSV;

my $csvfile = "test.csv";

my $csv = Text::CSV->new( { binary => 1, sep_char => ';' })
  or die "Failed to create Text::CSV object: " . Text::CSV->error_diag();

open my $fh, '<', $csvfile or die "open($csvfile) failed: $!";

while ( my $row = $csv->getline( $fh ) ) {
	print "Row: $.: \n";
	print ">$_<\n"	for @$row;
}