open I, "find $dir| "; chomp (my @file = <I>);