Perl code - 8 lines

Link:

Perl, pasted on Aug 28:

$A=1; $B=1;

while(1)
   { if ($A==1){$B=0,$A=B}
    if ($A==0){$B=1}
  if ($A==$B){last
  }else{$A=$B}}

Output:

Timeout