Select Code to Download

my $dir = new Directory(<Path to directory>);
...
...
$dir->print ({HEADERONLY => 1});
$dir->print({RECURSE=>1, DETAILS=> 0, HEADER=> 0}); # How much Disk ar
+e we eating

{ # Start of Package Directory ---
#-----------------------------
...
1;
} #End of Package Directory ---    
###############################################################