#!/usr/bin/perl # so, hier passiert jetzt recht viel und lange for (my $i=0; $i<10; $i++) { # Status der Datenverarbeitung speichern (normalerweise in Datenbank und natürlich umfangreicher) open(fh,'>test.txt') or die; print fh $i; close(fh); sleep(5); }