#!/usr/bin/perl
use Term::ReadKey;
($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();

print "$wchar\t$hchar\t$wpixels\t$hpixels\n";


##</code><code>##

#!/usr/bin/perl

@x = qx(stty -a);
  @y = split(/;/, $x[0]);

print "screen size is $y[1] $y[2]\n";

########################################### 
#Also, you can specify 'size' to avoid parsing; 
($rows, $cols) = split ' ', qx"stty size </dev/tty 2>/dev/null";

print "screen size is $rows x $cols\n";