opendir DIRHANDLE, 'directory-name' or die "Can't opendir: $!";
my @plain_files = grep( !/^\./ && -f, readdir( DIRHANDLE ) );
closedir( DIRHANDLE );