#! /usr/bin/perl
use strict;
use Term::ReadKey ();

@_ = Term::ReadKey::GetTerminalSize();
print ' Terminal geometry:', $/,
        "\t\tCharacters: ", join('x', @_[0..1]) ,$/,
        "\t\t    Pixels: ", join('x', @_[2..3]) ,$/;