Help for this page

Select Code to Download


  1. or download this
    
my @HighFolders;
...
use File::Util;
my($hf) = File::Util->;new();
my(@HighFolders) = $hf->;list_dir($Highpath,'--dirs-only');
  2. or download this
    
foreach $lf(@Highfolders)
...
my($lf) = File::Util->;new();
my(@Lowfolders) = $lf->;list_dir($lf,'--dirs-only);
}