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