die "oh snap\n" unless opendir D, $myDir;
my @Fx = grep /^\w/,readdir I;
closedir I;

for ( @Fx ) {
 next if -d "$myDir/$";
 push @F,$_;
}