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

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