perl -e 'use Term::ReadKey;($xm,$ym)=GetTerminalSize;print"\e[?25l";ReadMode(2);ReadMode(4);use worm_top;set_worm_delay(0.001);clrscr;do "worm_run.pl";gotoxy(1,$ym-1);print"\e[J";ReadMode(0);ReadMode(1);print"\e[?25h"'