print "com quantas moedas vamos jogar?";
<STDIN> = $VCquanti, $EUquanti;
while(($EUquanti, $VCquanti) /= 0){
  print "quantas moedas vc tem na mao q vale?";
  <STDIN> =  $VC;
  if ($VC /= 0..$VCquanti){print "o que?, tenque ser um valor de 0 a $VCquanti";
                                             die;}
  $EU =  int(rand(3));
  $EUgues = int(rand($EU + $VC)+$EU);
  print "enatao eu acho q no total sao $EUgues";
  if ($EUgues = $EU + $VC){$EUquanti--;
                                            print "ganhei agora so tenho $EUquanti moedas"}
  else {print "erei sua vez, quantas moedas temos no total?";
          <STDIN> = $VCgues;
           if ($VCgues = $EU + $VC){$VCquanti--;
                                                      print "ahh nao vc ganhou, agora so tem $VCquanti moedas"}
          else {print "ningem acertou nesse turno, vamos pro prosimo"}
          }
}
print "haha ganhei o jogo e vc ainda tem $VCquanti moedas na mao" if $EUquanti = 0; 
print "an nao vc ganhou o jogo eu morri com $EUquanti moedas na mao" if $VCquanti = 0;