Use the opendir in perl to parse directory contents. The following is a code example:

opendir DIRH, "." or die "Could not open directory.";
my @dir = readdir DIRH;
closedir DIRH;
foreach (@dir)
{
   print "file: $_\n";
}
[download]

Another neat method is to use the File::Find module, which can traverse a nested directory structure. The documentation is on CPAN, so I am not going to give example here.