opendir my $dh, $dir or die $!;
my @files = grep { -f } readdir $dh;