use strict;
use Win32::Console;

my $CONSOLE = Win32::Console->new();

my ($width, $height) = $CONSOLE->Size();
# $CONSOLE->Size(80, 25); # force a console size

print "Console size is $width x $height\n";