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

##</code><code>##

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