#!/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";