sub printdir {
  my $item;
  foreach $item(@_) {
    if (-d $item) {
      print "$item\n";
      opendir(SUBDIR, $item) or croak "Can't open directory :$!";
      my @subdir_items = readdir(SUBDIR); #+
      closedir(SUBDIR);                   #+  
      printdir(@subdir_items);            #+
    }
  }
}