#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

print "Start\n";
my $lauf = 1;
while ($lauf) {
	if (opendir my $vh,'.') {
		foreach my $file (
			grep {
				$_ =~ /^[a-z0-9]\-auftrag.dat$/
					&&
				!-z $_
			}
			readdir $vh
		) {
			print "Datei $file gefunden\n";
			my $pid;
			if (!($pid = fork())) {
				# Sohn
				print "Sohn gestartet\n";
				sleep(5);
			}
		}
	}
	print "Warte\n";
	sleep(2);
}
print "Ende\n";