my $dirname = "log";
opendir my $dir, $dirname
    or die "Couldn't read '$dirname' : $!";
my @files = map { "$dirname/$_" } readdir $dir;