How can I get all files in a directory, but not in subdirectories, in Perl? -

I get all the files that match a certain criterion ( -M , the age of modification) How can I get it? Days) in a list of directories, but not in their subdirectory?

I wanted to use File :: Search, but it seems that it always goes to the subdirectory.

  @files = grep {-f & amp; Amp; (-M) & lt; 5} & lt; $ _ / * & Gt; @for folders;