#! /usr/bin/perl use strict; use warnings; use CGI; my $cgi = CGI->new; print $cgi->header('text/plain'); print "Gestartet: " . localtime($^T) . "\n"; sleep int(rand(6)+1); print "Ausgabe Ende: " . localtime() . "\n"; # hiernach ist keine Ausgabe mehr an den Browser moeglich close STDOUT; # andere Jobs, die Zeit kosten sleep 5; # Kontrolle nach STDERR (ins Log, ...) warn "andere Jobs Ende: " . localtime() . "\n"; # Skript Ende exit 0; __END__