in reply to RFC: Draft Q & A: How to clear the screen in a perl program

Many obfus do system(($^O eq 'MSWin32')?'cls':'clear'). Others erroneously have $^O=~/win/i or similar instead, which breaks on cygwin (and darwin?).