sub GetDirFiles { my ($path) = @_; opendir DIR, $path or die $!; my @files = readdir DIR; closedir DIR; return(@files); }