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