opendir my $dir, './var';
say join "\n", readdir $dir;

##</code><code>##

fonts.tar.gz
.
c
..

##</code><code>##

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