#!/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";