I don't actually have a proper Windows Perl, but with a little help it even works from Cygwin's bash:

perl -e 'BEGIN{ $^O = "MSWin32"; } require("./die_if_lie.pl")'

Cygwin doesn't know CLS, so the system() does nothing and I just don't lose my scrollback.

Pretty cool!