use Win32::Console::ANSI; $|=1; print "\e[s"; # store 1st pos otherwise it will clear the whole screen for ( 'a'x300, 'b'x200, 'c'x100) { print "\e[u\e[0J"; # go to stored pos, del to end print "\e[s$_"; # store pos, print output sleep 3; }