use Win32::Console; my $console = Win32::Console->Size(500,180,300);