use Term::ReadKey;
  ($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();

##</code><code>##

  require 'sys/ioctl.ph';
  die "no TIOCGWINSZ " unless defined &TIOCGWINSZ;
  open(TTY, "+</dev/tty") or die "No tty: $!";
  unless (ioctl(TTY, &TIOCGWINSZ, $winsize='')) {
      die sprintf "$0: ioctl TIOCGWINSZ (%08x: $!)\n", &TIOCGWINSZ;
    }
  ($row, $col, $xpixel, $ypixel) = unpack('S4', $winsize);
  print "(row,col) = ($row,$col)";
  print "  (xpixel,ypixel) = ($xpixel,$ypixel)" if $xpixel || $ypixel;
  print "\n";