Select Code to Download

sub printdirs {
    my ($mydir) = @_;
    printdirs($_) for @{$mydir->subdlist};
    print "Dir: ", $mydir->dirname, "\n";
}