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,"l");while($k ne"x"){my $kt=ReadKey(-1);if(defined($kt)&&$kt=~/[jklix]/){$k=$kt}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)'