use strict;
use warnings;
use 5.010;

my $path = '/var/log';

opendir(my $TARGET_DIR, $path)
  or die "Couldn't open directory $path: $!";

my @all_files = readdir $TARGET_DIR;
closedir $TARGET_DIR;