print "\r"

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

#!/usr/bin/perl
use strict;

unless(0)
{

  my @rotation = qw(/ - \ |);
  my $pos = 0;
  my $del = "\x08";
  $| = 1;
  sub { print $del,'.',$rotation[$pos]; };

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

exit(0);