perl -e 'use Term::ReadKey;my($xm,$ym)=GetTerminalSize;ReadMode(2);ReadMode(4);use worm;init_worm("\@.OOOOOOooooooo...... ");clrscr;my($x,$y,$k)=(2,2,"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);if($x==1||$y==1||$x==$xm||$y==$ym){my $px=$xm/2-7;my $py=$ym/2;print "\e[".$py.";".$px."H ::[ luser ]:: ";print "\e[".$ym.";1H";$k="x"}}ReadMode(0);ReadMode(1)'