use warnings;
use strict;

use Win32::Console 'STD_OUTPUT_HANDLE';
use Data::Dump qw(dd);

my $con_current = Win32::Console->new(STD_OUTPUT_HANDLE);
$con_current or die 'new Win32::Console failed';

my ($left, $top, $right, $bottom) = $con_current->Window;
print qq($left, $top, $right, $bottom \n);

my $rect = $con_current->ReadRect($left, $top, $right, $bottom);
$rect or die 'read Win32::Console failed';

$rect =~ s{ \0\a\0  } ''xmsg;
$rect =~ s{ [ ]+ \z } ''xmsg;

dd $rect;
print qq{======\n$rect\n======\n};