#!/usr/bin/perl
use strict;
use warnings;

my $guipid=fork();
unless($guipid)
{
  # GUI Läuft
  my @rotation=qw(/ - \ |);
  my $pos=0;
  my $del="\x08";
  $|=1;
  $SIG{USR1}=sub{ print $del,'.',$rotation[$pos]; };

  while(1)
  {
    print $del,$rotation[$pos];
    select(undef, undef, undef, 0.15);
    $pos++;
    $pos=0 if($pos >= @rotation);
  }
  exit(0);
}

# Programm läuft
for (0..10)
{
  kill('USR1',$guipid);
  sleep(2);
}
kill(1,$guipid);
waitpid($guipid,0);
print "\n";
exit(0);