use strict;
use warnings;

use Win32::Console;

my $OUT = new Win32::Console(STD_OUTPUT_HANDLE);
my $IN  = new Win32::Console(STD_INPUT_HANDLE);
my @info = $IN->Info();
$OUT->Write(sprintf "IN  info:(%s)\n", "@info");
@info = $OUT->Info();
$OUT->Write(sprintf "OUT info:(%s)\n", "@info");

__END__
IN  info:()
OUT info:(150 9001 0 15 7 0 0 149 29 150 71)