sub getSemaphor {
   my $fn = shift; # Dateiname
   open (SEM, "< $fn");
   flock( SEM, LOCK_EX);
   my $sem = <SEM>;
   close( SEM );
   return $sem;
}

sub setSemaphor {
   my $fn = shift; # Dateiname

   my $sem=getSemaphor($fn);
   open (SEM, "> $fn");
   flock( SEM, LOCK_EX);
   print SEM ++$sem; # Semaphor erhöhen und schreiben
   close( SEM );
   return $sem;
}