my $dir="/path/to/dir";
opendir(DIR, $dir) or die "can't open $dir: $!";
my @files = grep {-f "$dir/$_"} readdir DIR;
closedir DIR;