perl -e 'use worm;init_worm("\@.OOOOOOooooooo...... ");clrscr;my($x,$y)=(1,1);while($k=getc(STDIN)){if($k eq"j"){$x--;}elsif($k eq"l"){$x++}elsif($k eq"i"){$y--}elsif($k eq"k"){$y++}creep_worm($x,$y);}'