or download this
use Win32::Console qw(STD_OUTPUT_HANDLE GENERIC_READ GENERIC_WRITE);
use Data::Dump qw(dd);
...
;;
$_ += 2 for $top, $bottom, $left, $right;
$con_current->WriteRect($rect,$left, $top, $right, $bottom )or die 'wr
+ite Win32::Console failed';