my @HighFolders;
my $Highpath="D:/FSA/Recordings/";

use File::Util;
my($hf) = File::Util->;new();
my(@HighFolders) = $hf->;list_dir($Highpath,'--dirs-only');

##</code><code>##


foreach $lf(@Highfolders)

use File::Util;
my($lf) = File::Util->;new();
my(@Lowfolders) = $lf->;list_dir($lf,'--dirs-only);
}