Help for this page
. ..
my @dots = grep { ! /^\./} readdir(DIR);
my @dots = glob("*"); # adjust argument to glob as needed