use strict;
use warnings;

$|++;

print "\e[H\e[J";

print "\nPress <RETURN> to clear the screen: "; <STDIN>;
require Win32::CONSOLE::ANSI;
print "\e[H\e[J";