\n";
print "\nfiles = " . join ( ", ", $files);
print "\nsubdirs = " . join ( ", ", $subdirs);

foreach($subdirs as $subdir) {
    // recurse subdirectories.
    $sub = new Dir($subdir);
    // ...
    print "\nsub-files (" . $subdir . ") = " . join ( ", ", $sub->files());
    print "\nsub-subdirs (" . $subdir . ") = " . join ( ", ", $sub->subdirs());
}


?>