Select Code to Download

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

#!/usr/bin/perl -w
use strict;
...
        print "\t$sub\n";
    }
}

my @Folders;   
# array of array refs, each sub-array =
# 0: directory name
# 1: array of subdirectories