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

##</code><code>##

use File::Spec::Functions qw/ no_upwards catfile catdir /;
opendir my $dh, $path or die "$path: $!";
my @files = sort map { catfile($path,$_) }
	grep { ! -d catdir($path,$_) && /^[^.]/ }
	no_upwards readdir $dh;
closedir $dh;