#!/usr/bin/perl
while(1){
  print `clear`;
  print "\n"x10;
  srand(time);
  $rand=rand;
  if($rand<0.5){
    print "+"x56;
    print "\n++++++    Du wirst gewinnen!  ($rand) ++++++ \n";
    print "+"x56;
    print "\n";
  }
  else{
    print "-"x56;
    print "\n------    Du wirst VERLIEREN! ($rand) ------\n";
    print "-"x56;
    print "\n";
  }
  print "\n"x10;
  srand(time+1);
  $rand=rand;
  if($rand<0.5){
    print "+"x56;
    print "\n++++++    Du wirst gewinnen!  ($rand) ++++++ \n";
    print "+"x56;
    print "\n";
  }
  else{
    print "-"x56;
    print "\n------    Du wirst VERLIEREN! ($rand) ------\n";
    print "-"x56;
    print "\n";
  }
  `sleep 0.1s`;
}