perl -e 'use Term::ReadKey;my($xm,$ym)=GetTerminalSize;ReadMode(2);ReadMode(4);use worm;init_worm("\@.OOOOOOooooooo...... ");clrscr;my($x,$y,$k)=(1,1,0);while($k ne"x"){$k=ReadKey(1);if($k eq"j"&&$x>0){$x--;}elsif($k eq"l"&&$x<$xm){$x++}elsif($k eq"i"&&$y>0){$y--}elsif($k eq"k"&&$y<$ym){$y++}creep_worm($x,$y);}ReadMode(0);ReadMode(1)'