#!/usr/bin/perl

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

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

  print "@files";