Select Code to Download

sub topdir {
  my($nd,$parent)=@_;
...

  return $d;
}

#!/usr/bin/perl -w

...
foreach (keys %hash) {
  print "DIR $_ = $hash{$_}\n";
}