http://www.perlmonks.org?node_id=1230266


in reply to Re^5: Debugging a program
in thread Debugging a program

Sweet!

I'd prob do it this way: 

my( $cols, $lines ) = qx( powershell -command "&{ \$H=get-host; \$H.ui
+.rawui.WindowSize.Width; \$H.ui.rawui.WindowSize.Height; }" ) =~ /(\d
++)/g;

[download]
I reckon we are the only monastery ever to have a dungeon stuffed with 16,000 zombies.

In Section Seekers of Perl Wisdom