Select Code to Download

#excert from tachyon's code at http://www.perlmonks.org/?node_id=15785
+1
my @dirs  = ($root);
...
    }
    closedir DIR;
}