#!/usr/bin/perl
### Erstellen der Homelaufwerke

open(FP, "passwd");
while(<FP>){
  @z = split /:/, $_;
  system("mkdir /home/$z[0]");
  system("chown $z[0].10 /home/$z[0]");
}
close(FP);