#! /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__