perl -e 'print "chown $_:www $_ -R\n" for grep { -d } <*>;'

#!/usr/bin/perl

use strict;
use warnings;
use File::Spec;

my $dir = '/pfad/der/zu/durchsuchen/ist';
opendir DIR, $dir or die $!;
while( my $entry = readdir DIR ){
    my $path = File::Spec->catfile( $dir, $entry );
    next unless -d $path;

    # chown-BEfehl
}
closedir DIR;

#!/usr/bin/perl 
# rmtree2 - lösche vollständige Verzeichnisbäume wie rm -r
use File::Path;
die "Verwendung: $O verzeichnis ..\n" unless @ARGV;
foreach $dir (@ARGV) {
  rmtree($dir);
}

perl -MFile::Basename -e 'print "chown ". basename($_) .":www $_ -R\n" for map {grep {-d} <$_/*>} grep {-d} <*>;'

#!/usr/bin/perl

  use strict;
  use warnings;

  use File::Spec;

  my $parent_dir = File::Spec->updir();

  chdir($parent_dir) or die "Error: Can't change directory to '$parent_dir'!\n";