• change_owner.pl

#!/usr/bin/perl
 
@files=glob "*";
 
for (@files)
{
system "chown -R $_ $_";
 
print;
print "\n";
}

• change_group.sh

#!/bin/bash
 
cd /home
for benutzer in *; do
        gruppe=`id -n -g $benutzer`
        chgrp -R $gruppe $benutzer
done

• make_per.sh

#!/bin/bash
 
find . -type f -exec chmod 644 {} \;
find . -type d -exec chmod 755 {} \;

• make_private.pl

#!/usr/bin/perl
 
@files=glob "*";
 
for (@files)
{
if (-e "./$_/privat")
{
  #proceed with your code
}
else
{ system "mkdir ./$_/privat";
}
 
if (-e "./$_/web")
{
  #proceed with your code
}
else
{ system "mkdir ./$_/web";
}
 
system "chmod -R 755 ./$_";
system "chown $_ ./$_/privat";
system "chmod 700 ./$_/privat";
system "chgrp users ./$_/privat";
 
print;
print "\n";
}