use Term::ReadKey;ReadMode 3;%v=qw{a -1 s 80 w -80};$f=print"\ec";{p($d +=$v{$c=ReadKey(-1)||$c}||1,"x");$d%$f?p(pop@s,$"):p($f=999*rand,"@"); select$q,$q,$q,(p(0,$/))/20;map$d-$_||&e,@s;@s=($d,@s);redo};sub p{print "\e\[".int($_[0]/80).";".int($_[0]%80)."H".$_[1]}sub e{ReadMode 0;exit} 324485