Select Code to Download

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;