my @standir = grep {! /^\./} readdir(DIR);