Consider using File::Find::Rule. You specify the rules or conditions to meet. One rule is 'maxdepth' that limits how far down the tree to go:

YuckFind

#!/usr/bin/perl

  use strict;
  use File::Find::Rule;

  my @files = File::Find::Rule->file()->maxdepth(1)->in('/start/here')
+;

  print "@files";
[download]