#!/usr/bin/perl
$|++;

print "Erzeuge Kind was 5 Sekunden schlaeft...\n";

my $pid = fork();    # erzeuge Kind

unless($pid) {       # Block wird nur im Kind abgearbeitet
   sleep 5;
   exit;
} 

print "Kind erfolgreich gestartet [$pid]\n" if defined $pid;

print "... und weiter gehts!...\n";