view release on metacpan or  search on metacpan

samples/clear-screen1.pl  view on Meta::CPAN

use Encode;
use lib '../lib', 'lib';
use Win32;
use Win32API::Console qw(
  :Func
  :FuncW
  :OUTPUT_MODE_
  :STD_HANDLE_
);

sub L ($) { Encode::encode('UTF-16LE', $_[0]) }

END { warn "$^E\n" if $^E }

sub main {
  my $hStdOut;

  $hStdOut = GetStdHandle(STD_OUTPUT_HANDLE);

  # Fetch existing console mode so we correctly add a flag and not turn off 
  # others