Select Code to Download

opendir dhandle,"log";
@dots = grep { /^log/ } readdir(dhandle);
...
    @files=`ls -l $item`;
     print @files;
}

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