while (1) {
        open (BEISPIEL, ">>example.txt") || die "Konnte Datei nicht \x94ffnen:\n$!";
        print BEISPIEL "Guten Tag!\n";
        close BEISPIEL;
        sleep (30);
}