use strict;
use warnings;
use POSIX ":sys_wait_h";

my $retval = fork();
if ($retval == -1) {
  die "fork() failed: $!\n";
}
elsif ($retval == 0) {
  # Prozess für den die Lebenszeichen ausgegeben werden
  sleep(12);
}
else { # Lebenszeichen ausgeben
  $|=1;
  while(!waitpid ($retval, WNOHANG)) {
    print "\b\|";
    sleep(1);
    print "\b/";
    sleep(1);
    print "\b-";
    sleep(1);
    print "\b\\";
    sleep(1);
  }
}