Help for this page
opendir my $dir, './var'; say join "\n", readdir $dir;
fonts.tar.gz . c ..
open my $file, '<', '.'; my @lines = <$file>; say join "\n", @lines; say scalar @lines;