open my $file, '<', '.';
my @lines = <$file>;
say join "\n", @lines;
say scalar @lines;