perl -e 'use Term::ReadKey;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--;}elsif($k eq"l"){$x++}elsif($k eq"i"){$y--}elsif($k eq"k"){$y++}creep_worm($x,$y);}ReadMode(0);ReadMode(1)'