use Path::Class qw/dir/;
my @files = sort grep { !$_->is_dir && $_->basename=~/^[^.]/ }
	dir($path)->children;