Select Code to Download

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

  require 'sys/ioctl.ph';
  die "no TIOCGWINSZ " unless defined &TIOCGWINSZ;
...
  print "(row,col) = ($row,$col)";
  print "  (xpixel,ypixel) = ($xpixel,$ypixel)" if $xpixel || $ypixel;
  print "\n";