#! /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;
}

A;b;c
1;2;3
"multi
line";"single line";"what;ever"

Row: 1:
>A<
>b<
>c<
Row: 2:
>1<
>2<
>3<
Row: 4:
>multi
line<
>single line<
>what;ever<