http://www.perlmonks.org?node_id=583395


in reply to Moon japh

Windows users can safely add use Win32::Console::ANSI; after the shebang line to make this work right.

For best results, run in a 80x25 full-screen console. (Run mode con cols=80 lines=25 from the prompt from which you'll run the script.)