Perl – czytaj z pliku

open(FILE,”%<data.csv”) or die “Can’t open file”;
while(<FILE>) {
    print “$_”;
}

open my $fh, "<", "data.csv"
    or die "Cannot open file $!";
while (<$fh>) {
    print $_;
}
close $fh;

use warnings;
use Path::Tiny;

my $f = path('./data.txt');
my @lines = $f->lines;
print $_ for (@lines);