yes.


I checked. 7 lines of code (so strict isn't needed. its a habit ok?)

#/usr/bin/perl -w
use strict;
my $var="/usr/local/apache/logs/";
my @file=glob("$var*");
foreach (@file){
print "$_\n";
}
[download]

it prints out a list of files in the given directory.