Perl – czytaj z pliku

#!/usr/bin/env perl
use warnings;
use Path::Tiny;

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