#!/usr/bin/perl
use strict;
use warnings;
use IO::Handle; STDERR->autoflush(1);

print STDERR time()." Hier ist der Sohn, warte 5 Sekunden\n";
sleep(5);
print STDERR time()." Sohn terminiert jetzt\n";