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);                     
        foreach $file (@subdir_items){
          print "$file\n";
        }
      }
    }
  }